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Contest  Nears  Conclusion 

Congratulations  to  the  60+  contestants  who  submitted  over  80  programs  to  the  Big  Contest, 

It  turned  out  to  be  bigger  than  we  thought  it  would!  We  are  truly  impressed,  as  are  the 
judges  from  3 separate  user  groups,  at  the  quality  of  so  many  works  of  art.  The  judging 
has  indeed  been  tough.  It  has  been  so  tough  that  as  of  this  writing,  6/24/85,  the 
finalists  have  not  been  indentified,  let  alone  the  winners.  With  so  many  enthusiastic 
entries,  we  feel  that  (there  can  be  only  one  winner  from  each  machine)  there  should  be 
more  prizes  to  give  out.  We’re  sure  that  you  agree.  We  have  not  decided  what  or  how  many, 
but  rest  assured  there  will  be  more  than  four.  We  will  announce  the  winners  in  the  next 
issue.  Thank  YOU  for  your  support. 

Timex  Disk  Drives 

The  Timex  2068  disk  drive  has  been  submitted  to  the  FCC  for  approval.  We  won’t  know  how 
long  it  will  be  before  these  devices  are  available  until  they  are  actually  legalized.  The 
operating  system  is  fully  implemented  and  the  disk  is  a 3”  (not  3 1/2")  drive.  We  will 
have  more  details  in  the  next  issue.  It  comes  with  two  RS  232  interfaces,  a Spectrum 
emulator  and  16 K of  Ram/Rom  in  the  interface  with  its  own  CPU.  The  ROSCS  line  (cartridge 
chip  select)  is  not  present  at  the  expansion  port. 

Syntax  Error 

We  have  received  several  letters  asking  about  the  status  of  the  publication,  Syntax. 
Although  it  may  be  no  surprise  to  many  of  you,  Kirt  Olsen  of  Syntax  has  stated  that  he 
will  not  take  on  any  new  subscribers.  He  has  also  said  that  he  would  fulfill  his 
obligations.  This  remains  to  be  seen.  If  you  would  like  to  correspond  with  Kirt,  then  drop 
him  a SASE  at,  The  Harvard  Group,  RD  2,  Box  457,  Harvard,  MA  01451. 

The  QL  Comes  of  Age 

The  QL  is  out  of  the  FCC  (after  one  year)  and  is  available  by  mail  order  and  through 
American  Express.  We  have  more  details  inside.  Presently,  the  only  Sinclair  peripherals 
that  will  be  available  for  it  are  a near  letter  quality  printer  and  a hi-res  monitor. 

Jerry  Chamkis  of  Aerco  is  planning  a 512 K byte  ram  board  (fits  inside)  and  Ray  Kingsley  is 
tinkering  with  the  idea  of  Hot  QL,  so  there  will  be  American  support.  Several  add-ons, 
such  as  disk  interfaces,  are  available  in  England.  A Technical  Manual  is  available  from 
Sinclair  Research  for  $20.00. 


Don’t  grow  old  waiting 
for  all  those  Timex 
rumors  to  come  true. 


Let  A&J  Micro  Drive 
answer  your  mass 
storage  needs 

today!  Pi 


A&J  MICRO  DRIVE 
ANNOUNCES 
NEW  LOWER  PRICES 


MODEL  2000  STARTER  KIT  (2068)  $149.50 

includes:  Drive,  Interface.  5 Micro  Wafers,  and  more 

MODEL  1000  STARTER  KIT  (1000,  1500,  ZX81) $149.50 

includes:  Drive.  Interface.  5 Micro  Wafers,  and  more 


MODEL  2068  CENTRONICS  KIT  $24.50 

includes:  Cable  and  Instructions 

MODEL  2000  or  1000  OWNER  S MANUAL  $4.95 


5’ A&J  MICRO  WAFER 3.50 

10’  A&J  MICRO  WAFER 3.50 

20'  A&J  MICRO  WAFER 4 00 

35'  A&J  MICRO  WAFER 4.00 

50'  A&J  MICRO  WAFER 4 50 

WAFER  ORGANIZER  (Folder  holds  16  wafers)  ....  5 00 

WAFER  CADDY  (Tray  holds  12  wafers)  9.95 

WAFER  WHEEL  (Wheel  holds  40  wafers)  18.75 

* Centronics  kit  must  be  used  with 
A&J  Model  2000  Stringy  Floppy 


$149.50 

MODEL  2000  & 1000 

features 

$149.50 

• 

High  speed  data  transfer 

• 

90  day  warranty 

$24.50 

• 

Reliable  service 

• 

No  cassette  hassles 

• 

Lowest  cost  system  available 

. $4.95 

• 

Widest  dealer  support 

A&J  DEALER 

NETWORK 

(No  system  has  better  dealer  support) 

A&J  MICRO  DRIVE.  Sunnyvale.  CA  (408)  732-9292 

E AUTHOR  BROWN.  Alexandra.  MN  (612)  762-8847 

KNIGHTED  COMPUTERS.  Fulton.  NY  (315)  593-8219 

GAMES  TO  LEARN  BY.  Collinsville,  CT  (203)  673-7089 
SUNSET  ELECTRONICS.  San  Francisco.  CA  (415)  665-8330 
ZEBRA  SYSTEMS.  INC..  Woodhaven.  NY  (718)  296-2385 
CURRY  COMPUTER.  Glendale.  AZ  (602)  978-2902 

RMG  ENTERPRISES.  Oregon  City.  OR  (503)  655-7484 

TEJ  COMPUTER  PRODUCTS.  Los  Angeles.  CA 
SUMWARE  CO.,  Alden,  NY  (716)  631-2204 


A&JSffiP  1050  E.  DUANE  AVE.,  SUITE  “I”,  SUNNYVALE,  CA  94086  (408)  732-9292 
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FOR  YOUR  SUPPORT 


30  FT  A ID  feed  the  world  tape  is  available  for 
$6.25  + $2.00p&h  from  Susan  Zeigler,  Software 
Services,  14307  Ben  Brush,  San  Antonio,  TX  78248.  It 
contains  10  of  the  greatest  hits  for  the  Spectrum; 

3D  Tank  Duel,  Ant  Attack,  Starbike,  Spellbound,  and 
more.  This  is  for  the  Band  Aid  trust  fund  for 
Ethiopia. 

TEJ  Computer  Products,  859  N.  Virgil  Ave.,  Los 
Angeles,  CA  90029,  has  Astro-One  for  the  2068.  It  is 
an  astronomy  program  that  contains  the  physical  and 
orbital  parameters  of  the  nine  planets  A their 
moons.  It  will  convert  Julian  dates,  days  of  the 
week,  local  time  to  GMT  and  more.  It  comes  with  a 49 
page  manual  for  $19.95 

G.  Russell  Electronics,  RD  1 Box  539,  Centre  Hall, 

PA  16828,  has  a Kempston  compatible,  fully  decoded 
Joystick  port  that  plugs  into  the  cartridge  dock.  It 
will  work  with  most  Spectrum  Games  (those  supporting 
the  joystick  function).  It  is  available  for  $19.95. 

Integrated  Data  Systems,  30  Brookmount  Rd.,  Toronto, 
Ontario,  Canada  M4L  3N1,  has  Word  Sine  II. 5 and  Word 
Font  II. 5 available  for  the  1000.  A manual  is  being 
prepared  (large)  now  that  will  help  in  customizing 
for  specific  uses.  WSII.5-$30.00  and  W FII.5-$12.50 
add  $1.00p&h  (Canadian  dollars). 

Sharp's,  Rt.  10,  Box  459,  Mechanicsville,  VA  23111 
(804)  730-9697,  has  a series  of  strategy  games 
including  War  in  the  East,  The  fall  of  Rome,  Britain 
Invaded,  and  more.  They  are  available  for  $19.95 
each,  $34.50  for  two.  Send  for  catalog. 

Richard  Booth,  Sherman  Faircild  Lab,  Lehigh 
University,  Bethlehem,  PA  18015  (215)  861  3951,  has 
Applied  Sinclair  Subroutine  and  Programs  for  the 
Mathematically  Minded,  a book  that  covers  168  pages 
and  a wide  range  of  numerical  computation.  It 
contains  an  annotated  listing.  The  book  is  available 
for  $13.00,  with  tape  $16.00. 

J.  Keene,  3515  Ingleside  Dr.  Dallas,  TX  75229,  has  a 
switchboard  that  allows  you  to  use  the  Spectrum  Rom 
and  2068  Rom  without  having  to  open  your  case  every 
time  that  you  want  to  switch.  $17.00  for  board, 

$20.00  for  Rom,  $35.00  together,  ppd. 

Pratt  Programs,  4820  E.  Morris,  Witchita,  KS  67218- 
2421,  has  Broker,  a program  for  2068  or  16K  1000. 

This  program  will  help  you  keep  track  of  the  market 
and  mutual  funds  and  tell  you  when  to  invest  and 
sell  out.  $25.00+  $3.00p&h. 


Robotron  Industries,  Inc.,  7401  W.  Maple  Terrace, 
Wauwatosa,  WI  53213,  has  an  eprom  programmer  kit 
available.  It  will  program  2716,  2732  ahd  2764 
eproms  and  comes  with  read,  write  and  verify 
software.  It  will  work  with  TRS  80  and  TS1000.  A 
power  supply  kit  is  also  available.  $49.95  for  the 
programmer  and  $14.95  for  the  power  supply.  Write 
for  more  information. 

Knighted  Computers,  707  Highland  St.,  Fulton,  NY 
13069,  (315)  593  8219,  has  a new  catalog  available. 

It  contains  hardware  and  business  and  game  software. 
It  includes  a $3.00  off  coupon  too. 

Ray  Rash,  2424  SW.  78th  St.,  Oklahoma  City,  OK 
73159,  has  a catalog  with  several  business  and  game 
programs.  A biorythm  program  is  also  available.  Send 
a S A S E . 

Fred  Nachbaur,  Mountain  Station  Group  Box  12, 
Nelson,  BC  Canada  V1L  5P1,  (604)  354  3858,  has 
Memotext  Word  Processor  available  for  ALL  1000  and 
1500  printer  interfaces  and  disk  drives  or  cassette 
fastload.  Specify  your  own  configuration.  $29.95ppd. 


The  SyncWare  News 

Thomas  B.  Woods  Publisher 

Thomas  J.  Bent  Editor 

Fred  A.  Nachbaur  Technical  Director 

All  subscription  information,  billing  and  ad  artwork 
should  be  addressed  to: 

SyncWare  News 
PO  Box  64 
Jefferson,  NH  03583 

(603)  586  7734 

Article  submissions,  Forum,  Support  listings, 
Classified  ads  and  easy  questions,  should  be 
addressed  to: 

SyncWare  News 
9016  Flicker  Place 
Columbia,  MD  21045 
(301)  730  7187 

Article  submissions,  issue  tapes  (when  warranted), 
hardware  and  related  tough  questions  should  be 
addressed  to: 

4 . / 

Syncware  News 

Mountain  Station  Group  Box  12 

Nelson,  British  Columbia,  Canada  V1L  5P1 

(604)  354  3858 


TS20o 8 Programs 

Multi-Draw  2063 $24.95 

Softsync  Assembler $19.9  5 ------- 

Voice  Chess $24.95  ------- — 

Personal  Accountant $24.95 


Please  include 
check  or  money 
order.  Calif, 
residents  add 
6%  sales  tax. 
Please  add 
$2.50  shipping 
and  handling. 
No  COD's  - US 
funds  only. 

SEND  NOW  FOR 
FREE  CATALOG.' 

DP  - We  have 
not  abandoned 
basic  computer 
users! 


Back  issues  of  SWN  are  available  for  $3.50  each. 
Volume  #1  (for  the  1000)  is  available  for  $16.95. 

SWN  is  done  entirely  on  TS  computers.  Submissions 
are  preferred  as  word  processed  text  files  (so  we 
need  not  re-invent  your  article)  on  good  tape. 
Memotext  for  the  1000  and  1500  and  Mscript  for  the 
2068  are  preferred  word  processors.  Documents 
submitted  in  Tasword  Two  and  other  word  processors 
must  be  done  in  52  column  format.  If  you  do  not  have 
a word  processor,  but  you  still  have  a good  idea, 
then  don't  hesitate  too  work  it  up  and  submit  it. 
SWN  pays  authors  about  $40.00  per  page  for  original 
articles.  This  amount  will  vary  slightly  from  issue 
to  issue  and  is  paid  when  the  article  is  published. 
Write  for  more  information. 
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FORUM 


Dear  Editor,  I offer  the  following  change  to  Jack's 
Fat  Mscript,  in  order  to  make  it  work  with  the 
Tasman  interface  version.  Change  line  15  to  read: 

15  SAVE  mMSCRIPTmCODE  36608,8306 

Lee  Bennett,  PO  Box  67,  Lumber  City,  GA  31549 


Dear  Editor,  I recently  bought  a 2040  printer  that 
would  not  work  with  my  16 K Memotech  Rampack.  I 
understand  that  by  removing  some  capacitors  from  the 
printer,  it  will  work.  If  so,  will  it  not  work  with 
other  Ram  configurations?  If  it  is  alright  to  remove 
them,  what  is  the  easiest  way? 

Jeff  Damerst,  307  N.  Michael,  St.  Marys,  PA  15857 

The  easiest  way  to  perform  this  capectomy  is  with 
toenail  clippers.  Remove  the  screws  from  the  bottom 
of  your  printer.  Expose  the  circuit  board  and  locate 
the  controller  chip  in  the  back  left  corner  where 
the  interface  wire  harness  enters.  The  three  caps  in 
question  are  C4,  C5  and  C6.  They  are  small  tan 
colored  caps.  Start  clipping.  These  were  initially 
for  FCC  requirements.  Their  absence  will  not 
interfere  with  your  computing  (just  your  neighbors 
TV). 


Dear  Editor,  I noticed  that  my  subscription  is  about 
to  expire,  so  I have  sent  a check  to  renew.  The 
usefulness  of  your  publishing  effort  is  almost 
beyond  description.  Sometimes  it  is  a little  too 
technical  for  me,  but  I am  amazed  at  how  I grow  into 
it.  At  any  rate,  it  surely  provides  new  computing 
and  engineering  frontiers  for  me. 

Phillip  Stevens,  2610  39th  St.  Des  Moines,  IA  50310 


the  expansion  connectors,  there  is  no  need  to  open 
the  case  to  install  them. 

The  keyscan  differences  of  the  two  machines  can 
cause  problems,  but  most  of  the  software  has  already 
been  corrected  for  this.  It  is  the  interrupt 
programs  that  are  most  interesting.  In  Mode  2,  the 
Spectrum  does  find  FF  on  the  bus,  but  in  the  2068,  I 
have  found  OF,  2F,  3F,  0E  and  there  may  even  be 
others.  Some  programs  don't  need  an  emulator,  they 
need  only  pullup  resistors.  One  problem  that  even 
this  won't  fix  is  the  speed/TV  scan  difference.  Some 
programs  require  a set  of  calculations  to  be 
completed  between  TV  scans.  Some  Spectrum  software 
may  not  keep  up  with  the  frantic  pace  of  the  2068. 

Wes  Brzozowski,  Sineus  News  and  User  Group,  337 
Janice  St.  Endicott,  NY  13760  (607)  785  7007 

Thanks,  I needed  that.  Wes  has  a lot  more 
information  on  this.  Send  him  a SASE  and  he  will 
fill  you  in  on  all  the  details. 


Dear  Editor,  I plan  to  try  Fred's  Load  Amp  circuit 
(SWN  2/5)  soon.  He  mentions  that  one  2068  from  GTLB 
had  a single  diode  bridging  the  two  cascaded  ones 
(CR25  A CR26).  I wonder  if  Timex  had  come  up  with 
the  same  cure  that  I did  for  fried  SOLD  chips.  I 
believe  that  that  single  diode  was  reversed  from  the 
other  two.  This  would  give  a clamp  of  no  more  than  - 
.6V.  He  also  mentions  that  this  computer  did  not 
have  one  of  the  caps  that  the  others  had.  This  would 
stand  to  reason,  as  a boost  in  signal  strength  could 
be  tolerated  by  the  SCLD  if  it  is  clamped  with  the 
diode  to  -.6  V.  I suggest  that  anybody  installing  any 
device  to  increase  the  load  signal,  should  add  this 
reverse  diode  for  protection.  (Fred  agrees.  If  one 
of  the  other  diodes  goes,  you  could  have  problems.) 
Since  the  SCLD  is  a CMOS  device,  I doubt  that  it  has 
a comparator  in  the  load  circuitry.  The  Spectrum  has 
schmitt  trigger  input,  and  I would  say  that  the  2068 
has  a CMOS  version  of  this. 


Dear  Editor,  ....  I wish  Clive  would  devote  more 
time  to  creating  silicon  masterpieces.  I think  that 
he  could  accomplish  more  by  continuing  to  make  it 
possible  for  more  people  to  be  able  to  use  electrons 
to  move  their  minds  instead  of  their  bodies.  Do  you 
know  what  he  is  doing  these  days? 

Bob  Falk,  39  E.  First  St.,  New  York,  NY  10003 

As  a matter  of  fact,  he  is  in  the  process  of  selling 
out  his  share  of  Sinclair  Research  to  a Czech 
magnate.  I guess  his  car  is  not  doing  so  well.  We  do 
wish  that  he  would  spend  more  time  on  support,  but 
then  again  we  will  be  here  for  a long  time  to  come. 


Dear  Editor,  In  SWN  2/2,  On  Loading,  by  Ed 
Shaughnessy,  after  the  report  code  C/190  is  given  in 
the  Save  the  Un-saveable,  it  is  possible  to  List  the 
Un-listable.  All  Ed  needs  now  is  a program  for 
Programming  the  Un-program m able! 

Tom  Laffin,  Box  133,  Hillsboro,  NH  03244 


Dear  Editor,  The  Forum  column  article  on  Spectrum 
compatability  should  prove  to  be  useful  to  most  of 
your  readers.  You  seem  almost  apologetic  in  saying 
that  the  use  of  10  K pullup  resistors  is  a "quick  and 
dirty"  fix.  In  my  opinion  this  is  the  correct 
solution.  Furthermore,  since  the  data  lines  are  at 


As  a matter  of  interest,  I expect  to  have  the  disk 
"B"  boards  by  the  end  of  July.  All  I will  need  to 
make  the  system  fly  will  be  Ray's  DOS  and  the  DOCS. 

John  Oliger,  11601  Whidbey  Dr.,  Cumberland,  IN  46229 


Dear  Editor,  In  the  Print  Command  Compiler,  on  the 
last  page  in  SWN  2/5,  you  have  the  18  byte 
disassembly  incorrectly  listed.  You  have  the  HL 
register  loading  from  and  to  the  variable  "prog" 
(5C53h).  Although  it  doesn't  matter,  the  correct 
variable  should  be  "ch_add"  (5C5Dh).  It  may  confuse 
anyone  studying  the  listing  though. 


William  Powers,  Maxsoft,  611  Franklin  St.  Hamilton, 
OH  45013 
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TS1500  Fix 


1.  After  burning  your  eprom,  bend  out  pins  20  and 
23. 


In  the  last  issue,  we  reported  a bug  in  the  LOAD 
command  that  would  put  the  stack  pointer  at  the 
address  where  the  bad  load  occur ed.  I made  a copy  of 
the  1500  ROM  (OOOOh  to  IFFFh)  at  5000h  to  6FFFh.  The 
listings  (done  with  Hot  Z)  shown  here  are  of  the 
original  ROM  and  the  fix  for  an  eprom. 


035D«10F1 

0JNZ  0350 

035F 

FI 

POP  9F 

0360 

59 

CP  C* 

0361 

02E3-03 

JP  NC  03E3 

03C3*CDE702 

NEU 

C9LL  02E7 

03C-6 

2P.0440 

L0  HL . (R9MTP) 

03C9 

2B 

DEC  HL 

03  CP 

3E3F 

L0  9 . 3F 

03  ee 

44 

L0  B . H 

03  CD 

40 

L0  C . L 

03C-E 

3600 

L0  (HL) .00 

0300 

2B 

DEC  HL 

0301 

SC 

CP  H 

0302 

20Fh 

•JR  NZ  03CE 

0304 

60 

LD  H.B 

0305 

69 

LD  L , C 

0306 

23 

INC  HL 

0307 

220-440 

L0  (R9MTP) } HL 

030*9 

210020 

LD  HL . 2000 

0300 

35 

DEC  (HL) 

030E 

2002 

JR  NZ  03E2 

03E0 

E9 

JP  (HL) 

03E1 

00 

NOP 

03-E2 

290440 

LD  HL , (R9HTP) 

03E5 

2 S 

DEC  HL 

03E6 

363E 

LD  (HL) ,3E 

Original  TS1500  ROM  (with  bug) 

5350«10F1 

* 

DJNZ  5350 

535F 

Fi 

POP  9F 

5360 

B9 

CP  D 

5361 

1363 

JR  B9DT 

53C3®CDE702 

C9LL  F95T 

53C6 

290440 

B90T 

LD  HL  t (R9MTP) 

53C9 

54 

LD  D,H 

5 3 CP 

50 

LD  E , L 

53  GB 

3E3F 

LD  9 , 3F 

53CD 

2B 

DEC  HL 

53CE 

3600 

CLER 

LD  (HL) ,00 

5300 

2B 

DEC  HL 

5301 

BC 

CP  H 

5302 

20F9 

JR  NZ  CLER 

5304 

EB 

EX  DE.HL 

5305 

220440 

LD  (R9MTP) , HL 

5306 

210020 

LD  HL , 2000 

530B 

7 E 

LD  9 . (HL) 

530C 

FE01 

CP  01  ■ 

530E 

2005 

JR  NZ  ST9K 

53E0 

E9 

JP  (HL) 

53E1 

00 

NOP 

53E2 

00 

NOP 

53E3 

00 

NOP 

53E4 

00 

NOP 

53E5 

2B 

ST9K 

DEC  HL 

Corrected  code  for 

EPROM 

Because  of  the  tight  space  in  the  1500,  it  is 
necessary  to  solder  on  the  eprom  and  run  some  jumper 
wires  around  on  the  board.  Put  some  conductive  foam 
(Radio  Shack)  under  your  eprom  before  you  solder 


2.  Solder  wire  wrap  wire  on  and  connect  pins  1,  28, 
27  and  26  together. 

3.  Solder  jumper  wires  on  pins  2,  20  and  23. 

The  1500  has  a 24  pin  socket  in  it,  and  you  are 
installing  a 28  pin  chip.  Keep  this  in  mind  as  you 
read  the  next  few  lines. 

4.  Jumper  eprom  pin  2 to  pin  21  of  the  socket. 

5.  Jumper  eprom  pin  20  to  pin  20  of  the  socket. 

6.  Jumper  eprom  pin  23  to  pin  18  of  the  socket. 

7.  Install  the  eprom  with  pins  1,  2,  28  and  27 
hanging  over  the  top  of  the  socket. 

These  changes  can  be  installed  in  a 1000.  The 
Command  cartridge  for  the  1500  would  then  come  up 
running  on  a 1000  at  power  up.  With  Hunter  board 
applications  (or  other  8 to  16 K boards),  if  you  have 
the  instruction  LD  BCnnnn,  where  nnnn  is  any  hex 
number,  as  the  first  instruction  (at  2000h),  then 
your  program  will  start  all  by  itself.  You  must  take 
care  of  the  initialization  though. 

On  the  1000  with  a 28  pin  ROM  socket  the 
installation  is  much  easier.  Bend  out  pins  20  and 
23.  Jumper  pin  20  to  pin  22  of  the  socket.  Jumper 
pin  23  to  pin  20  of  the  socket.  To  avoid  soldering 
on  the  eprom,  use  two  28  pin  low  profile  sockets. 
Jumper  the  top  socket  pins  (20  and  23)  down  to  the 
bottom  socket  pins  (22  and  20).  Install  the  eprom 
into  the  top  socket  and  put  the  whole  thing  into 
your  computer.  We  will  have  more  on  this  later. 


NCUI  PRODUCTS 

GAMCSMATf  Joystick-Interface:  Add  speed/convenience  to  Spec- 
trum programs  with  Kempston  joystick  option.  Plugs  into  TS2068 
cartridge  port.  Uses  any  standard  joystick.  ROMSWITCH  & Spec- 
trum ROM  compatible.  $19.95 

AOMFIX:  Update  for  ROMSWITCHES  produced  before  2/85  Only 
$3.25 

SPCCTAUM  HAADUJAAC  ADAPTCA  INTCftf  ACC  for  TS2068/ROMSWITCH 
(EMU4):  Lets  you  use  Sinclair  Spectrum  microdrives/other  Spec- 
trum hardware.  $35 

CNAOMA-SOfT:  100%  Software  generated  color  for  black/white  TV 
for  TS1000/1500,  ZX81.  SEEING  IS  BELIEVING!  Break-through 
experimental  graphics  program  produces  9 colors  by  "tricking"  the 
brain.  $14.95 

T.A.S.  FIX:  For  Tasman  Printer  Interface  $24.95  assem./tested 

SUMMCA  SAIC  PAKCS  — ends  August  31,  1985 
ROMSWITCH  for  TS2068  $45.;  ROMSWITH  + GAMESMATE  $62.95 
WINKY  BOARD  2000  $20.95;  ZX  Spectrum  Manual  $12.95 

WINKY  BOARD  2000  + 007  SPY  CASSETTE  $26.95 
16K  RAM  PACS  for  TS1000,  ZX81  $19.95;  For  TS1000/1500,  ZX81/80- 
WINKY  BOARD  2 $16.95;  WINKY  BOARD  2 + ZXLR8  Fastload  $25.95 
Shipping  included  in  all  prices  listed. 

FREE  CATALOG  includes  SUMMER  SALE,  LIQUIDATION  ITEMS, 
SPECTRUM  SOFTWARE  LIST,  NEW  PRODUCTS  DESCRIPTIONS. 

RUSSCll  CLCCTRONICS 

RD  1 Box  539-S,  Centre  Hall,  PA  16828 

314-364-1325  MasterCard/Visa  10am-8pm,  Check/MO 
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TI99  Keyboard 


So,  you  got  one  of  those  TI99  keyboards  from  Radio 
Shack  for  $2.95  and  still  have  not  wired  it  up  to 
your  1000  or  2068,  right?  I was  going  to  write  this 
up  a while  ago,  but  I learned  that  so  many  different 
companies  made  the  circuit  boards  that  it  would  be 
difficult  to  give  a direct  "how  to"  and  cover  all  of 
the  permutations.  The  response  in  favor  of  the 
article  was  overwhelming,  so  here  it  is. 

It  is  not  necessary  to  grind  off  all  of  board  traces 
and  rewire  the  entire  board.  It  is  necessary  to  make 
a number  of  trace  cuts  though.  All  of  my  keyboards 
have  numbered  pads  on  the  underside.  Since  each  key 
is  actually  a switch,  there  are  two  pads  for  each 
key.  These  are  denoted  as  left  and  right  in  this 
project. 

A key  matrix  schematic  comes  with  your  keyboard. 
Mine  has  the  keypads  of  the  numbers  1 through  0 
labeled  as  1 through  10.  A is  23  and  V is  38.  If 
yours  is  numbered  the  same,  then  you  should  have 
little  trouble  wiring  your  keyboard  as  described 
herein. 

Only  the  bottom  row  needs  to  be  cut  and  moved  over 
one.  Fortunately,  the  TI  and  ZX  matrix  are  similar. 

A few  of  the  special  keys  must  also  be  jumpered 
around,  and  the  space  keys  must  be  linked  up  again 
too.  Cut  the  traces  above  or  below  the  pads 
specified.  Then  jumper  the  necessary  pads  together. 


I refer  you  to  Yolume  1 of  SWN,  page  42,  and/or  the 
ZX81  or  2068  schematic  for  the  ZX  key  matrix.  You 
may  now  directly  solder  or  otherwise  connect  the 
ribbon  connector  of  the  keyboard  to  the  computer  as 
follows: 


KEYBOARD 

Pin  1 
Pin  2 
Pin  3 
Pin  4 
Pin  5 
Pin  7 
Pin  8 
Pin  9 
Pin  10 
Pin  11 
Pin  13 
Pin  14 
Pin  15 


TIMESCREEN™ 
ZX*/ , 16K 

Creativity  and 
planning  aid: 


COMPUTER 


C . 9 . 7 10  ■ P 3 * 4 5.10  1.3  N . 3 


Cut  as  follows: 

ABOVE 

46L 

47L 

33L 

33R 

42R 

41L 

41 R 

40R 

37R 

36R 

35  R 

34  R 

32R 

22  R 


BELOW 

44R 

39L 

38L 

12R 

26R 


10L 

31L 

30RA26R 
27R 
26R 
25  R 
24  R 

35L&44R 
40L 
23L 
15  R 


3 screen  formats  (9-block 
format  shown  here) 

BASIC  routines  to  enter 
and  rearrange  data 

Calendar 

10  screens  in  16K;  36/32K 

Use  with  any  printer  that 
will  accept  COPY  routine 


Cassette  and  manual,  S9.00  (VA  res.  add  4%  tax), 
+ Si. 00  s&h  for  one,  500  s&h  ea.  addl.  cassette. 
One  8{x11  Label-Index  Card  sent  with  each  cass. 


HAUC 


Programming  

4604  Apple  Tree  Drive 
Alexandria,  VA  22310 


CLASSIFIED 


Do  you  have  something  to  sell? 
Let  everyone  know.  Just  $2.75  a 
line  will  put  it  here.  32  column 
(screen)  format,  Include  spaces 
in  your  text  and  send  CK.  or  MO 
with  your  listing. 

Send  to  SWN  Classified,  9016 
Flicker  PL,  Columbia,  MD  21045 

Get  cash  for  that  unused  board 
or  addon!  SELL  IT!! 


For  Sale.  Stringy  Floppy,  A&J 
Microdrive  for  ZX80/ZX81  or 
TS1000/TS1500.  Save  programs  30 
times  faster,  Automatic  verify 
with  save.  Includes  manual  & 
wafers,  $125.00.  Tom  Saine,  2545 
Niagara  Falls  Blvd.,  Tona wanda, 
NY  14150 


For  Sale.  Byte  Back  Modem 
$75.00.  Includes  Software.  16  K 
ram  pack  FREE!  Call  616  323  7822 
9-9  or  send  CK  or  MO  to:  Steve 
Cooley,  PO  Box  2932,  Kalamazoo, 
MI  49003 


PRO/FILE  2068  OWNERS!! 
BREAKTHROUGH  is  the  bulletin  for 
keeping  your  database  up  to  date 
wit  all  of  the  latest  upgrades. 

Issue  #1  features  a new  improved 
machine  code  sort  routine  for 
fast  alphabetizing.  Get  your 
copy  of  BREAKTHROUGH  #1  today. 
Send  $7.95  to:  Thomas  B.  Woods, 

PO  Box  64,  Jefferson,  NH  03583 


Wanted:  Memotech  RS232  i/f  and 
cable  for  TS1000.  Will  pay 
$50.00.  Anthony  Oresteen,  452 
Orion,  Batavia,  IL  60510,  (312) 
879-5608. 
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ADDING  ON  TO  GLADSTONE 


I 


Many  memory  expansion  boards  have  been  offered  for 
ZX81's  and  TSIOOO's.  One  of  the  first  to  break  down 
through  the  $100,00  price  barrier  was  the  Gladstone 
64 K RAM  pack.  It  gave  you  use  of  RAM  memory  from 
locations  8K  through  64 K.  Its  only  short  coming  was 
that  you  had  to  ALWAYS  use  all  of  the  8K  to  64 K 
region.  Many  printer  interfaces,  peripherals,  etc., 
are  memory  mapped  to  operate  in  the  8K  to  16 K region 
of  memory.  The  circuit  used  by  Gladstone  and  several 
other  manufacturers,  has  no  provision  to  disable  the 
RAM  pack's  control  of  this  region  of  memory. 


3.  On  the  component  side  of  the  board,  cut 
the  circuit  trace  between  pin  3 and  pin  10 
that  has  been  exposed  by  the  removal  of 
IC3. 

4.  Replace  IC3  and  carefully  solder  it  back 
into  the  circuit. 

5.  Cut  the  trace  leading  to  the  card  edge 
connector  connection  B23  as  close  to  B23  as 
possible  (this  is  the  ROMCS  line). 


One  way  to  get  add-ons  that  are  memory  mapped  to  the 
8K  to  16  K region  of  memory  to  work  with  the 
Gladstone  64 K RAM  pack  is  the  "hack-and- jumper" 
method  of  memory  modification.  The  following 

provides  step-by-step  instructions  to  prevent 

interference  of  the  Gladstone  64 K RAM  pack  in  the  8K 
to  16 K memory  region: 

1.  Open  the  RAM  pack  case  by  removing  the 
three  alien  head  screws  and  remove  the 
circuit  board. 


6.  Cut  the  trace  between  IC3  pin  10  and  IC1 
pin  6 (IC1  is  marked  Ul). 

7.  Solder  a jumper  wire  from  1C3  pin  3 to 
IC1  pin  6. 

8.  Solder  a jumper  wire  from  IC1  pin  4 to 
IC3  pin  10. 

9.  Check  for  good  solder  joints  and 
eliminate  any  solder  bridges. 


2.  Locate  IC3,  marked  U3  on  the  circuit 
board,  unsolder  and  remove  it. 


10.  Re-install  the  circuit  board  in  its 
case. 
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The  RAM  pack  should  function  normally  In  the  16 K to 
64 K region  and  allow  no  memory  access  or  interfere 
with  anything  operating  in  the  8K  to  16  K region. 

However,  this  is  a permanent  change,  and  the  memory 
could  be  damaged  physically  and  electronically  with 
all  the  hacking  and  soldering. 

A better  way  to  get  peripherals  to  operate  in  the  8K 
to  16  K region  is  to  construct  the  circuit  shown  in 
figure  1.  This  is  the  circuit  that  Gladstone  and 
other  similar  RAM  pack  manufacturers  left  out.  This 
circuit  will  allow  you  to  select,  by  IK  blocks, 
which  parts  of  memory  are  enabled  or  disabled  in  the 
8K  to  16 K region.  The  circuit  is  compatible  with  any 
memory  that  doesn’t  have  provisions  to  disable  all 
or  part  of  the  8K  to  16 K region  of  memory.  Also,  as 
long  as  power  is  maintained  to  the  memory,  a machine 
code  program  can  be  loaded  somewhere  into  the  8K  to 
16 K region  of  memory,  and  then  the  memory  prohibit 
switch (es)  controlling  that  block  of  memory  closed. 

The  program  will  remain  safe  in  RAM  while  a 
peripheral  is  enabled  and  operates  in  the  same 
memory  locations.  Once  use  of  the  peripheral  is 
complete  and  it  is  disabled,  the  memory  prohibit 
s witch  (ee)  can  be  opened  and  the  machine  code 
program  will  still  be  in  place  in  RAM,  ready  to  use. 


Construction  of  the  circuit  can  easily  be  done  using 
wire  wrap  and  most,  if  not  all  of  the  parts,  can  be 
obtained  from  Radio  Shack.  Layout  of  the  components 
isn't  critical,  but  some  thought  should  be  given  to 
keep  wire  runs  as  short  and  as  neat  as  possible. 

Avoid  bundling  up  the  wires.  All  the  address,  data 
bus,  power  and  control  lines  except  ROMCS  and  RD  are 
to  be  physically  connected  between  the  computer, 
peripherals  and  RAM  pack.  ROMCS  and  RD  are  connected 
between  the  computer  and  the  peripherals,  but  must 
go  through  the  tri-state  buffer  before  connecting  to 
the  RAM  pack.  When  the  wiring  and  testing  Is 
complete,  a suitable  enclosure  should  be  constructed 
to  protect  the  circuit  and  provide  RF  shielding. 

To  use  the  circuit,  connect  all  peripherals  except 
the  RAM  pack  to  the  computer.  Connect  the  memory 
adaptor  circuit,  then  connect  your  RAM  pack  last. 
Close  the  memory  prohibit  switches  for  the  memory 
locations  where  the  peripherals  are  operating,  and 
turn  on  the  power.  If  all  is  well,  the  computer, 
peripherals  and  RAM  pack  will  work  together  in 
perfect  harmony. 


PARTS  LIST 


The  circuit  here  uses  IC1,  a 3-to-8-line  decoder/ 
demultiplexer,  along  with  IC5A,  an  OR  gate,  to 
decode  the  8K  block  of  memory  located  from  8192  (8K) 
to  16384  (16K)  into  IK  blocks.  If  A15  (address  line 
15)  and  A 14  (address  line  14,  etc.)  are  both  low, 
MREQ  (memory  request)  is  low  and  A 13  is  high,  then 
one  output  line  (8KSEL-15KSEL)  from  IC1  goes  low 
based  on  inputs  provided  by  A 10,  All  and  A 12.  If  the 
Memory  prohibit  switch  (MPS8K-MPS15K)  for  that 
output  line  is  closed,  then  the  low  from  the  output 
line  is  passed  through  the  NAND  gates  IC2  and  IC3, 
inverted  and  presented  to  pin  1 of  IC4  to  disable 
the  RAM  pack  for  that  IK  memory  block.  IC4  is  a tri- 
state  buffer.  When  pin  1 of  IC4  is  a logic  "l,"  the 
buffer  is  essentially  turned  "off,"  disconnecting 
the  RD  and  ROMCS  lines  between  the  computer  and  the 
RAM  pack.  The  RD  signal  can't  get  to  the  memory  to 
allow  it  to  output  data  onto  the  data  bus,  and  ROMCS 
from  the  RAM  pack  can't  interfere  with  the  ROMCS 
generated  by  the  peripheral.  All  expansion  port 
lines  except  ROMCS  and  RD  remain  connected  between 
the  computer  and  the  RAM  pack. 


IC1  74LS138 
IC2  74LS20 
IC3  74LS00 
IC4  74LS367 
IC5  74LS32 
IC6  7805 

R1-R8  470  ohm 
R9-R10  270  ohm 

Cl  10  uFd  @15vor  greater 
C2-C4  .01  uFd 

MISC.-  perfboard,  IC  sockets,  wirewrap  materials, 
male  and  female  card  edge  connector,  suitable 
enclosure,  etc. 

(John  Oliger  has  a 6 slot  expansion  board  that  is 
perfect  for  this  application.  It  allows  for  6 IC's 
to  be  added,  and  it  is  simple  to  modify.  It  is 
available  bare  board  for  $14.95.-ed.) 


•SOFTWARE* 

PRESENTS: 

THREE  EXTRAORDINARY  PROGRAMS  FOR  THE 

(€on%fiul+ 1 

“ZX/CALC"-  CALCULATOR 

“ZX/TEXr-  WORD  PROCESSOR 

“ZX /CALENDAR-  APPOINTMENT  CALENDAR 


FOR  COMPLETE  DETAILS 
WRITE 

A. F.R. SOFTWARE 

1605  Pennsylvania  Ave . 

# 204 

Miami  Beach,  Florida 

33139 


"SMftRT  TEXT  ZX— TS""  ** 


INTEGRRTED  SOFTWARE  for  ZX-01,  TS-1000,  TS-1500 


01-  TS— 2040 


Works  with  full  nze  pnnttrs  or  TS-c 
* Thm  ultimate  MULT I -FUNCTION  software  * 
-This  ad  written  with  SMART  TEXT  ZX/TS- 


Uord  processing.  data  files,  printer  controlling,  wailing  list,  repeat 
printing.  AH  functions  IKTEBRRTED  to  provide  repeat  letter  printing  to 
■ailing  list  ran  and  adr.  Invoicing,  labels,  envelopes,  plus  eucb  eore. 
It's  complete  correspondence  software  that  allows  0CRGE)  and  co-op  with  eost 
of  your  other  titles.  And,  its  very  ""user  friendly”. 


Unconditionally  Guaranteed  to  satisfy 

Functions  with  all  eodels  having  32K  raw,  and  par  printer  I/O  port.  Works  as 
is  with  Oliger  printer  port  and  Okidata  printer. 

35  page  wanual  describes  Methods  to  eodify  for  all  printers  and  all  I/O  ports. 

$29.95  check  or  wo  gets  3 versions  of  Swart  text  on  cassette.  (SASE  with 
inquiries. ) 

Bill  Jones,  1317  Stratford  Ave,  Panama  City,  FL 
32404  (tel  904-871-4513) 

>>>>  SMART  TEXT  TS-206S  COMING  SOON  <<<< 


! 
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UNIVERSAL  PRINTER  DRIVER 


F.  Nachbaur 

In  Volume  1,  I ran  a series  on  getting  the  most  out 
of  your  ZX/TS  with  full-size  printer  and  Memotech 
Centronics  interface.  Since  then,  this  CIF  has 
become  unavailable.  Fortunately,  several  other 
printer  interfaces  (both  parallel  and  serial)  are 
available.  These  include  Centronics  Parallel  IF's  by 
Aerco,  Byte-Back,  John  Oliger,  and  Tasman,  and 
serial  IF's  from  Byte-Back  and  possibly  others. 

Most  of  these  come  with  "printer  driver"  software 
that  allow  you  to  LLIST,  COPY  and  LPRINT.  At  least 
one  (the  Aerco)  includes  an  EPROM  card  that  overlays 
the  ROM  and  allows  direct  use  of  the  Sinclair 
commands.  The  T as  man  is  the  exception  (to  my 
knowledge),  since  it  is  being  imported  for  the 
TS2068.  (It  WILL  work  with  the  ZX81/TS1000, 

however.)  Similarly,  the  Aerco  CIF  for  the  TS2068  is 
identical  to  the  TS1000  version  except  that  it  lacks 
the  ROM  overlay  card.  With  the  appropriate  driver 
software,  it  too  will  work  with  the  ZX81  family  (and 
at  less  cost  than  the  one  intended  for  it). 

JLO*s  driver  software  (per  SQ  1:1)  is  short  and 
sweet,  but  lacks  LLIST  and  LPRINT  options.  Byte- 
Back^  software  has  LLIST  and  a sort  of  LPRINT,  but 
it  doesn't  allow  lower-case  and  is  over  600  bytes 
long.  Wouldn't  it  be  nice  if  we  had  a "universal" 
printer  driver  that  was  compact,  flexible,  and  would 
work  with  the  ZX81  and  ANY  interface?  Well,  here  it 
is. 


What  It  Does 

The  routine  described  here  just  fits  into  1/2 K.  This 
is  handy  if  you're  adapting  software  that  was 
designed  for  the  Memotech  CIF  which  uses  the  1/2 K 
region  from  2800-29FFh  (10240-10751).  The  first  128 
bytes  is  a Sinclair- A SCI  I conversion  table.  The  code 
itself  is  therefore  only  384  bytes  long.  It  was 
written  in  a way  to  make  it  easily  re-locatable  to 
other  areas  of  memory,  and  uses  only  one  variable 
(system  variable  "VERS").  The  last  routine  is  a 
small  section  of  code  that  customizes  the  software 
to  your  interface.  Routines  for  the  Aerco,  Byte-Back 
Centronics,  Byte-Back  RS232  and/or  MD-2  modem,  JLO 
Centronics,  and  TASMAN  Centronics  are  presented 
here.  Others  are  easily  implemented  as  long  as  you 
know  the  requirements  to  send  an  ASCII  character. 

This  software  includes  LLIST,  COPY,  COPN  (copy  N 
lines  of  the  screen),  and  three  different  ways  of 
LPRINTing  any  string.  All  are  accessed  with  RAND 
USR. 

* COPY  - RAND  USR  10368  from  within  a program 
dumps  all  24  lines  to  the  printer. 

* COPN  - This  is  similar  to  COPY,  except  that  you 
specify  how  many  lines  to  copy  with  RAND  (number), 
and  then  RAND  USR  10391.  The  COPY  routines  are 
easily  patched  into  Hot-Z  or  other  software. 

* LLIST  - LIST  the  desired  starting  line,  and  RAND 
USR  10402  to  get  a hard-copy  program  listing. 
Unlike  some  other  LLIST  routines,  this  one  won't 
balk  at  "illegal"  characters.  It  will  print  a 
tilde  ( 0 ) instead.  It  won't  stop  prematurely  due 


to  an  ENTER  character  (CHR$  118)  in  the  middle  of 
a line,  so  even  lines  that  mess  up  your  screen 
will  LPRINT  properly.  Like  COPY  and  COPN,  LLIST 
will  print  "normal"  characters  as  capitals,  and 
inverse  video  characters  as  lower-case.  (Keeps  the 
tokens  looking  normal). 

* LPRINT  - This  allows  you  to  print  out  the 
contents  of  any  string,  simple  or  arrayed.  CHR* 

118  (ENTER)  within  the  string  will  force  a 
"newline."  To  print  a string,  simply  RAND  CODE 
"(string  name)",  then  RAND  USR  (number).  The 
argument  of  the  USR  can  be  one  of  three  numbers: 

10650  (LPRINT  1).  This  prints  inverse  video  as 
capitals,  and  normal  video  as  lower-case.  This 
is  what  you'd  normally  use  for  text,  since  the 
inverse  characters  are  more  naturally  viewed  as 
upper-case  (in  the  style  of  WSII,  Memotext, 
etc.) 

10655  (LPRINT  2).  This  routine  is  just  like  LPRINT 
1,  except  that  it  prints  normal  characters  as 
capitals  (like  COPY  and  LLIST). 

10660  (LPRINT  3).  This  send  the  contents  of  the 
selected  string  in  ASCII  code,  without 
translation.  This  is  handy  for  sending  printer 
control  codes  and  custom  characters.  The  only 
code  that  can't  be  sent  in  this  fashion  is  118 
(76h,  or  lower  case  "v")  since  it  is  still  used 
to  force  a line-feed. 


Examples 

LET  A$="THIS  WILL  PRINT"+CH  R$118+"  AS  THREE 
LINES"+CH  R$118+"IN  LOWER  CASE." 

RAND  CODE  "A" 

RAND  USR  10650 

LET  B$="THIS  PRINTS  AS  ALL  CAPITALS" 

RAND  CODE  "B" 

RAND  USR  10655 

To  put  printer  into  expanded  mode, 

LET  C$=":"  or  LET  C$=CHR$  14 
RAND  CODE  "C" 

RAND  USR  10660 


Entering  the  Program 

Start  with  the  usual  1 REM,  540  bytes  long. 
Following  the  system  described  in  an  earlier 

"Translations"  article,  you  could  enter  1 PRINT 
0+0+....  with  68  repetitions  of  "+0". 

Use  Hot  Z or  Hot  Z II  to  enter  the  data  and  code 
from  2800h-29FF,  and  transfer  into  the  REM. 
Alternately,  use  the  hex  loader  shown  in  Listing  1. 
However  you  do  it,  you'll  first  enter  the  conversion 
table  of  Table  1,  then  the  machine-code  of  Listing 
2,  then  the  12  bytes  of  the  down-loader  routine  of 
Listing  3.  When  you're  done,  LIST  10,  and  POKE 
16420,10.  This  prevents  the  automatic  listing  from 
getting  stuck  because  of  the  illegal  codes. 


Listing  2 Is  for  the  TASMAN  interface.  If  you  have 
one  of  the  others,  use  the  appropriate  ASCII  routine 
for  your  unit  to  replace  the  code  starting  at  29D8h. 

If  yours  isn*t  listed,  find  out  from  the 

manufacturer  what  it  takes  to  print  an  ASCII 
character,  and  use  the  routines  presented  here  as 
guidelines  to  writing  your  own  ASCII  print  routine. 

Add  the  BASIC  driver  of  Listing  4 (replacing  the  hex 
loader  if  you  used  it),  and  RUN  the  program  to  save 
it  to  tape.  After  saving  (or  subsequently  re- 
loading) the  whole  business  is  quickly  transferred 
into  its  operating  region  in  low  memory  by  the 
little  routine  (Listing  3)  at  4286h  (17030d). 


Listing  1.  Hex  Loader 

1 PRINT  0-H3+0+0+0-t-0  + 0 + 0 + 0 + 0+0 

+ 0 + 0+0+0+0-J-0+0  +0-1-0  +0+0  +0+0  +0+0+0 

+0+0+0+0+0+0+0+0+0+S+0+0+0+0+0+0 
+0+0 +0+0 +0+0 +0+0 +0+0 +0+0 +0+0 +0+0 
+0+0 +0+0 +0+0 +0+0 +0+0 
10  REM  HEX  L ORDER 
15  POKE  1551 3.234- 
20  FOR  1=16514  TO  17041 

22  LET  RD =1-6274 

23  LET  H=INT  (RD/256) 

24  LET  L =RD -256 + H 

25  LET  HK=INT  CM, 16) 

26  LET  HL=H-16*HH 

27  LET  LH=INT  (L/16) 

23  LET  LL  =L - 16  +LH 

23  LET  R$=CHR$  (HH+23)+CHR$  »H 
L +23 ) +CHR$  (LH+23) +CHR$  (LL+23) 
30  SCROLL 
35  PRINT  R$ . 

40  INPUT  5$ 

50  LET  R =16+  » CODE  B$(1)-2S)+C0 
DE  B$ (2) -23 
60  PRINT  5$ 

70  POKE  I.R 
30  NEXT  I 


Table  1.  ASCII  Conversion  Table 
Hex  Values  from  2800  to  287F 


20 

20: 

20 

20 

20: 

20: 

20: 

20 

20 

20: 

20 

22 

23: 

24: 

3A: 

3F 

28 

29: 

3E 

3C 

30: 

2B : 

2D: 

2A 

2F 

3B : 

2C 

2E 

30: 

31  : 

32: 

33 

34 

35: 

36 

37 

38: 

39: 

61  : 

62 

63 

64: 

65 

66 

67: 

68: 

69: 

6A 

6B 

6C : 

6D 

6E 

6F : 

70: 

71  : 

72 

73 

74: 

75 

76 

77: 

78: 

79: 

7A 

20 

20: 

20 

20 

20: 

20: 

20: 

20 

20 

20: 

20 

7C 

25: 

26: 

60: 

21 

7B 

7D: 

7E 

5F 

5B : 

40: 

5D : 

7F 

5C 

5E : 

27 

20 

30: 

31  : 

32: 

33 

34 

35: 

36 

37 

38: 

39: 

41  : 

42 

43 

44: 

45 

46 

47: 

48: 

49: 

4A 

4B 

4C : 

4D 

4E 

4F : 

50: 

51  : 

52 

53 

54: 

55 

56 

57: 

58: 

59: 

5A 

NOTE:  Enter  values  shown  ACROSS 
from  left  to  right,  top  to  bottom. 


Driver  Machine  Code 

Listing  2. 


2880" 

1618 

COPY  LD  0,18  / 

>C0PY  FULL  SCREEN 

2882 

2A0C40 

C0PD  LD  HL , < DFI L) 

:Copy  D lines 

2885 

23 

INC  HL 

:Next  address 

2886 

7E 

LD  A , < HL) 

:Get  character  in  A 

2887 

FE76 

CP  76 

:End  of  line? 

2889 

2805 

JR  2 2890 

: Yes . 

288B 

CBBB29 

CALL  NRML 

:No.  Ship  it  out, 

288E 

1 8F5 

JR  2885 

and  Voop  back. 

2890 

C0CD29 

CALL  LFED 

: Send  1 i ne  -feed 

2893 

15 

DEC  0 

decrement  Line  counter 

2894 

20EF 

JR  N2  2885 

and  do  next  1 i ne 

2896 

C9 

RET 

unless  done. 

2897 

EO4B3240 

C0PN  LD  BC , ( SEED) 

>C0PY  N LINES 

289B 

79 

LD  A , C 

:No . of  lines  i n A . 

289C 

FE1  9 

CP  19  ; 

: Over -range 9 

289E 

00 

RET  NC 

:Yes , so  return. 

289F 

57 

LD  0 , A 

:No,  put  it  in  D, 

28A0 

1 8E0 

JR  C0P0 

and  go  to  C0PD. 

28A2 

2A0A40 

LIST  LD  HL , < EPPC) 

>LLI ST  PROGRAM 

28A5 

COD809 

CALL  LIAO 

:Ge t line  start  addr . 

28A8 

7E 

NEXL  LD  A , ( HL) 

: F i rst  char . i n A . 

28A9 

FE76 

CP  76 

:End  of  program? 

28AB 

C8 

RET  2 

:Yes,  so  return. 

28AC 

46 

LD  B, (HL) 

:No.  Get  line 

28AD 

23 

INC  HL 

number 

28AE 

4E 

LD  C , ( HL) 

in  BC 

28AF 

23 

INC  HL 

and  increment. 

28B0 

E5 

PUSH  HL 

:Save  the  address. 

28B1 

C5 

LNBR  PUSH  BC 

:Get  line  no.  f rom  BC 

28B2 

El 

POP  HL 

into  HL . 

28B3 

11E803 

THOU  LD  DE , 03E8 

thousands  digit 

28B6 

CDD428 

CALL  DCML 

gets  pr i nted, 

28B9 

1 16400' 

HUND  LD  DE , 0064 

then  hundreds, 

28BC 

CDD428 

CALL  DCML 

28BF 

1 10A00 

TENS  LD  DE , 000A 

tens, 

28C2 

CDD428 

CALL  DCML 

28C5 

110100 

ONES  LD  DE , 000 1 

and  finally  units 

28C8 

CD0428 

CALL  DCML 

oet  sh i pped  out . 

28CB 

AF 

X0R  A 

: Se t "space  NOT" 

28CC 

320940 

LD  (VERS) ,A 

flag,  and 

28CF 

C0BD29 

CALL  NRML 

print  space. 

28D2 

1 80F 

JR  LLEN 

: Continue  to  LLEN. 

28D4 

AF 

DCML  X0R  A 

: DECIMAL  CONVERSION 

2805 

ED52 

SUBT  SBC  HL , DE 

:Subtract  modulus. 

28D7' 

‘'3803 

JR  C BORO 

: " Borrow?" 

2809 

3C 

INC  A 

:No.  Incr.  counter, 

280A 

1 8F9 

JR  SUBT 

and  subtract  again. 

280C 

19 

BORO  ADD  HL , DE 

:Yes.  Add  it  back, 

2800 

C630 

ADD.  A, 30  K 

convert  to  ASCI  I , 

280F 

CDD829 

CALL  ASCI 

and  print  it. 

28E2 

C9 

RET 

:Return  for  next  digit. 

28E3 

El 

LLEN  POP  HL 

fRe tv i eve  addr . , 

28E4 

5E 

LD  E, (HL) 

and*  get  line 

28E5 

23 

INC  HL 

length  in  DE, 

28E6 

56 

LD  D , ( HL) 

point  to 

28E7 

23 

NXCH  INC  HL 

next  character,  and 

28E8 

IB 

DEC  DE 

deer,  length  counter. 

28E9 

7A 

ELN’  LD  A,D 

:Have  we  reached 

28EA 

B3 

OR  E 

end  of  line? 

28EB 

200 A 

JR  N2  TEXT 

:No . It's  text  of  line. 

28E0 

CDCD29 

CALL  LFED 

:Yes<  send  LF , 

28F0 

CD460F 

BRK?  CALL  BRAK 

check  for  BREAK, 

28F3 

00 

RET  NC 

and  quit  if  so . 

28F4 

23 

INC  HL 

:Else  incr.  add. 

28F5 

1 8B1 

JR  NEXL 

and  do  next  line. 

28F7 

7E 

TEXT  LD  A , < HL) 

:Text  char,  in  A. 

28F8 

FE7E 

CP  7E 

:1s  is  number  slug? 

28FA 

290C 

JR  N2  N0TN 

:No.  Go  on. 

28FC 

23 

INC  HL 

:Yes , 

28FD 

23 

INC  HL 

28FE 

23 

INC  HL 

so 

28FF 

23 

INC  HL 

2900 

23 

INC  HL 

sk  i p 

10 


2901 

IB 

DEC  DE 

2981  23 

PVAR  INC  HL 

sNext  character  addr 

2902 

IB 

DEC  DE 

•t, 

2982  7A 

LD  A,D 

sCheck  if  counter 

2903 

IB 

DEC  DE 

2983  B3 

OR  E 

down  to  zero. 

2904 

IB 

DEC  DE 

and  get 

2984  2004 

JR  NZ  GCHR 

:No,  so  go  on. 

2905 

IB 

DEC  DE 

2986  CDCD29 

CALL  LFED 

sYes,  send  a LF 

2906 

1 8DF 

JR  NXCH 

next  character. 

2989  C9 

RET 

and  return. 

2908 

F5 

NOTN  PUSH  AF 

sSave  character,  and 

298A  7E 

GCHR  LD  A, (HL) 

sGet  the  character. 

2909 

E67F 

AND  7F 

reduce  modulus  80h. 

298B  FE76 

CP  76 

sis  it  an  "Enter?" 

290B 

FE40 

TKN?  CP  40 

sis  it  a token? 

298D  2005 

JR  NZ  PCHR 

sNo.  Print  it  as-is. 

290D 

300B 

JR  NC  TOKN 

:Yes.  Go  to  TOKN. 

298F  CDCD29 

CALL  LFED 

sYes.  Send  a LF 

290F 

FI 

POP  AF 

sNo.  Get  character, 

2992  1803 

JR  NCHR 

and  get  next  char . 

2910 

CDBD29 

CALL  NRML 

and  print  it. 

2994  CDAD29 

PCHR  CALL  RVRS 

sSend  it  out. 

2913 

3€$i 

LD  A, 01 

sNow  reset  "Space 

2997  IB 

NCHR  DEC  DE 

s Decrement  counter, 

2915 

320940 

LD  (VERS), A 

NOT"  flag, 

2998  18E7 

JR  PVAR 

and  loop  back. 

2918 

1 8CD 

JR  NXCH 

next  character. 

299A  21AD29 

LPR1  LD  HL,RVRS 

s >LPRINT  1 

291A~ 

3A0940 

TOKN  LD  A,  <•' VERS) 

sit's  a token;  space 

299D  1808 

JR  29A7 

slnverse  = CAPITALS 

291 D 

A7 

AND  A 

already  printed? 

299F  21BD29 

LPR2  LD  HL,NRML 

s >LPRINT  2 

291 E 

2809 

JR  2 NLSP 

sYes-  don't  print  again. 

29A2  1803 

JR  29A7 

slnverse  = LOWERCASE 

2920 

AF 

LSPC  XOR  A 

sNo. 

29A4  21D829 

LPR3  LD  HL ,ASCI 

: >LPRINT  3 - ASCII  code 

2921 

320940 

LD  (VERS), A 

Set  "Space  NOT," 

29A7  229529 

LD  (2995) ,HL 

sSet  LPRINT  CALL, 

2924 

CDBD29 

CALL  NRML 

print  the  space, 

29AA  1 8A1 

JR  LPRT 

go  to  main  routine. 

2927 

1804 

JR  PRTK 

and  go  on. 

29AC  00 

NOP 

s INV.=CAPS  SUBROUTINE 

2929 

3C 

NLSP  INC  A 

sReset 

29AD  E5 

RVRS  PUSH  HL 

sSave  address 

292A 

320940 

LD  (VERS), A 

■space  NOT." 

29AE  2628 

XLAT  LD  H,28  C 

sHi  byte  of  conv.  table 

292D 

FI 

PRTK  POP  AF 

sGet  token  code, 

29B0  CB7F 

BIT  7, A 

slnverse? 

292E 

CD7509 

CALL  TOKA 

f i nd  ROM  address. 

29B2  2802 

JR  Z 29B6 

2931 

0A 

NTCH  LD  A, (BC) 

sNext  char,  in  token. 

29B4-D640 

SUB  40 

sYes,  subtract  64. 

2932 

F5 

PUSH  AF 

sSave  it,  then 

29B6  6F 

LD  L,A 

sLow  byte  of  conv.  table 

2933 

E67F 

AND  7F 

modulus  80h. 

29B7  7E 

LD  A, (HL) 

.'Look  it  up, 

2935 

FE0F 

CP  0F  ? 

slllegal  "token?" 

29B8  El 

POP  HL 

get  address  back, 

2937 

2002 

JR  NZ  OKTK 

sNo.  Val i d token . 

29B9  CDD829 

CALL  ASCI 

send  it  out, 

2939 

3E92 

ILGL  LD  A, 92 

sYes.  Repl  . wi th  a " ~ " 

29BC  C9 

RET 

and  return. 

293B 

CDBD29 

OKTK  CALL  NRML 

Print  character. 

29BD  E5 

NRML  PUSH  HL 

sINV.=L.C.  SUBROUTINE 

293E 

03 

INC  BC 

slncr.  address 

29BE  F5 

PUSH  AF 

sSave  Sine,  character. 

293F 

FI 

POP  AF 

and  retrieve  char. 

29BF  E67F 

AND  7F 

sModulus  128d. 

2940 

FE80 

CP  80 

sWas  it  inverse  (last)? 

29C1  FE1C 

CP  1C  0 

sis  it  a symbol ? 

2942 

38ED 

JR  C NTCH 

sNo.  Loop  back. 

29C3  3805 

JR  C 29CA 

sYes.  Leave  unchanged. 

2944  AF 

TSPC  XOR  A 

sSet  "space  Not", 

29C5  FI 

POP  AF 

sNo.  Change  cases. 

2945 

320940 

LD  (VERS), A 

and  print 

29C6  C680 

ADD  A, 80 

2948 

CDBD29 

CALL  NRML 

trai 1 i ng  space . 

29C8  1 8E4 

JR  XLAT 

294B 

1 89A 

JR  NXCH 

sNext  character. 

29CA  FI 

POP  AF 

294D 

ED4B3240 

LPRT  LD  BC , ( SEED) 

s >LPRINT  ROUTINE 

29CB  18E1 

JR  XLAT 

2951 

79 

LD  A,C 

:Var.  char,  code  in  A, 

29CD  3E0D 

LFED  LD  A , 0D  $ 

sLINE-FEED  SUBROUTINE 

2952 

C6A0 

ADD  A ,A0 

sadd  160  (for  array 

29CF  CDD829 

CALL  ASCI 

.•Send  a CR, 

2954 

47 

LD  B,A 

var.  check).  Move  to  B. 

29D2  3E0A 

LD  A,0A 

2955 

ED5B1040 

LD  DE , (VARS) 

sGet  VARS  start  add. 

29D4  CDD829 

CALL  ASCI 

and  an  LF. 

2959 

EB 

NXVR  EX  DE,HL 

sNext  variable. 

29D7  C9 

RET 

295A 

7E 

LD  A, <HL) 

sGet  var.  name. 

29D8  E5 

ASCI  PUSH  HL 

.'PRINT  ASCII  SUBROUT. 

295B 

B8 

CKAR  CP  B 

sCheck  for  string  array. 

29D9  D5 

PUSH  DE 

for  TASMAN  interface. 

295C 

2816 

JR  2 ARAY 

sYes.  Handle  as  such. 

29DA  C5 

PUSH  BC 

Save  registers, 

295E 

C680 

ADD  A, 80 

sNo.  Add  128  for 

29DB  F5 

PUSH  AF 

and  ASCI  I char . 

2960 

2802 

JR  NZ  CKSP 

simple  string  check. 

29DC  CDE702 

CALL  TFAS 

sTemp.  FAST  mode. 

2962 

CF 

NFND  RST  08H 

sVar.  not  found, 

29DF  DBBF 

STAT  IN  A, (BF) 

sPrinter  ready? 

2963 

01 

ERROR  2 

error  back  out. 

29E1  CB47 

BIT  0 ,A 

Loop  back 

2964 

B8 

CKSP  CP  B 

sSimple  string  var .? 

29E3  20 FA 

JR  NZ  STAT 

if  not. 

2965 

2807 

JR  2 SMPL 

sYes.  Handle  as  such. 

29E5  AF 

STUP  XOR  A 

sElse  set  up 

2967 

C5 

PUSH  BC 

sNo.  Save  search  code, 

29E6  D3FB 

OUT  (FB),A 

f?I0  chip 

2968 

CDF209 

CALL  NXBV 

get  next  var . addr . , 

29E8  3D 

DEC  A 

parameters 

296B 

Cl 

POP  BC 

get  search  code, 

29E9  D37B 

OUT  (7B),A 

for  "transmit." 

296C-18EB 

JR  NXVR 

and  start  over. 

29EB  D3FB 

OUT  (FB),A 

296E 

23 

SMPL  INC  HL 

sit's  a simple 

29ED  FI 

SEND  POP  AF 

Then  get  char. 

296F 

5E 

LD  E, (HL) 

string  variable 

29EE  D37B 

OUT  (7B),A 

and  ship  it  out . 

2970 

23 

INC  HL 

so  get  start 

29F0  3EF7 

RSTR  LD  A,F7 

;Now  restore 

2971 

56 

LD  D , ( HL  > 

address  in  DE, 

29F2  D3FB 

OUT  (FB),A 

PIO  chip 

2972 

180D 

JR  PVAR 

then  print  it. 

29F4  3EFF 

LD  A,FF 

for  next  time. 

2974 

23 

ARAY  INC  HL 

sit's  a string 

29F6  D3FB 

OUT  (FB),A 

2975 

5E 

LD  E, (HL) 

29F8  GD0702 

CALL  MDCK 

sMode  check. 

2976 

23 

INC  HL 

array  variable, 

29FB  Cl 

POP  BC 

2977 

56 

LD  D, (HL) 

29FC  D1 

POP  DE 

sRestore  registers. 

2978 

23 

INC  HL 

so  find  out 

29FD  El 

POP  HL 

297? 

IB 

DEC  DE 

2?FE~C9 

RET 

» 

297A 

46 

LD  B, (HL) 

how  many  dims. , 

29FF  00 

NOP 

297B 

23 

6TST  INC  HL  / 

297C 

23 

INC  HL 

then  step  addr. 

297D 

IB 

DEC  DE 

297E 

IB 

DEC  DE 

and  counter 

297F 

i 

DJNZ  GTST 

till  start  found. 

11 


ASCII  Print  Routines  For  Various  Interfaces 


BYTE-BACK  RS232  INTERFACE  AND  HD-2 


29D8-E5 
29D9  D5 
29DA  C5 
29DB  F5 
29DC  CDE702 
29DF  3AFF3F 
29E2  E601 
29E4  28F9 
29E6  FI 
29E7  32FE3F 
29EA  CD0702 
29ED  CDF429 
29F0  Cl 
29F1  D1 
29F2  El 
29F3  C9 
29F4  0410 
29F4  3EFF 
29F8  3D 
29F9  20FD 
29FB  10F9 
29FD  C9 


ASCI  PUSH  HL 
PUSH  DE 
PUSH  BC 
PUSH  AF 
CALL  TFAS 
STAT  LD  A, (3FFF) 
AND  01 
JR  Z STAT 
SEND  POP  AF 

LD  <3FFE) ,A 
CALL  MDCK 
CALL  DLAY 
POP  BC 
POP  DE 
POP  HL 
RET 

DLAY  LD  B,  10  ( 

LD  A,FF 
DEC  A 

JR  NZ  29F8 
DJNZ  29F6 
RET 


DLAY  routine  max  not  be  necessary 
with  your  printer)  experiment 
with  different  values  in  29F5. 

120  units*about  1 sec.  in  SLOU  mode. 
Min.  delay  is  when  29F7*01 
an  29F5-01. 


J.L.O.  CENT. 

INTERFACE 

AERCO  CENT. 

INTERFACE 

29D8-E5 

ASCI  PUSH  HL 

29D8-E5 

ASCI 

PUSH  HL 

29D9  D5 

PUSH  DE 

29D9  D5 

PUSH  DE 

29DA  C5 

PUSH  BC 

29DA  C5 

PUSH  BC 

29DB  F5 

PUSH  AF 

29DB  F5 

PUSH  AF 

29DC  CDE702 

CALL  TFAS 

29DC  CDE702 

CALL  TFAS 

29DF  3AFFFF 

STAT  LD  A, <FFFF> 

29DF  DB7F 

STAT 

IN  A, <7F) 

29E2  FE18 

CP  18  / 

29E1  CB67 

BIT  4, A 

29E4  20 F9 

JR  NZ  STAT 

29E3  20 FA 

JR  NZ  STAT 

29E6  FI 

SEND  POP  AF 

29E5  FI 

SEND 

POP  AF 

29E7  32FFFF 

LD  <FFFF) ,A 

29E4  D37F 

OUT  < 7F) ,A 

29EA  CD0702 

CALL  MDCK 

29E8  00 

NOP 

29ED  Cl 

POP  BC 

29E9  00 

NOP 

29EE  D1 

POP  DE 

29EA  DB7F 

RSTR 

IN  A,<7F) 

29EF  El 

POP  HL 

29EC  CD0702 

CALL  MDCK 

29F0  C9 

RET 

29EF  Cl 

POP  BC 

29F0  D1 

POP  DE 

29F1  El 

POP  HL 

BYTE-BACK  CENT.  INTERFACE 

29F2  C9 

RET 

29D8-E5 

ASCI 

PUSH  HL 

29D9 

D5 

PUSH  DE 

29DA 

C5 

PUSH  BC 

29DB 

F5 

PUSH  AF 

29DC 

CDE702 

CALL  TFAS 

29DF 

DB1F 

STAT 

IN  A, ( IF  3) 

29E1 

CB7F 

BIT  7, A 

29E3 

28FA 

JR  Z STAT 

29E5 

FI 

SEND 

POP  AF 

29E6 

D31F 

OUT  (IF  3), A 

29E8 

CD0702 

CALL  MDCK 

29EB 

Cl 

POP  BC 

29EC 

D1 

POP  DE 

29ED 

El 

POP  HL 

29EE 

C9 

RET 

Customizing  Graphics 

You  may  customize  your  version  to  allow  LPRINT,  COPY 
and  LLIST  of  graphics  characters.  As  listed,  the 
conversion  table  sends  spaces  for  these,  since  not 
all  printers  support  the  block  graphics.  If  yours 
does,  answer  "Y"  and  enter  the  ASCII  codes  for  each 
graphic  symbol  in  turn.  (Consult  SWN  Vol.  1 for 
Gemini  10X,  or  your  printer  manual.) 

You  may  want  to  define  the  graphics  characters  to 
print  control  codes.  (Example:  make  the  graphic  on 
"A"  the  ESC  code  27d,  and  the  graphics  on  S,  D,  F,  G 
and  H your  most-used  ESC  commands  like  10/12  CPI, 
underline  on/off,  etc.  Be  warned  though;  this  may 
cause  strange  effects  with  LLIST/COPY.)  SAVE  the 
finished  result  to  tape  for  future  use  by  answering 
"Y"  on  "SAVE?"  If  you  made  a mistake,  answer  "N"  and 
do  it  over  with  GOTO  50. 


Patching  Hot  Z 


The  COPY  routines  use  the  D register  as  a line 
counter  for  compatability  with  Hot-Z  II  and  other 
programs  that  patch  into  the  Sinclair  COPY  command. 

To  patch  the  Hot  Z II  "COPY"  command,  change  the 
command  at  63F9  to  CALL  2882.  Patching  the  "COPY 
cursor  to  END"  is  only  slightly  more  involved: 


5D1D  E5 
5D1E  CD8628 
5D21  El 
5D22  00 


PUSH  HL 
CALL  2886 
POP  HL 
NOP 


If  you  have  32 K or  more,  you  can  then  use  Hot  Z II 
to  load  itself  into  high  memory  starting  at  8009h 
(END  at  B4E5).  Then  set  cursor  to  5D1D,  END  to  63FB, 
and  transfer  t6  92 El.  Save  it  back  to  a new  tape  for 
future  use. 

If  you  have  only  16 K,  then  merge  HOT  Z II  with 
BIG  REM,  Quit  and  Save  the  whole  enchilada  to  your 
new  tape.  After  re-loading,  go  back  into  Hot  Z with 
RAND  USR  22528  (cold  start)  or  RAND  USR  27273  (warm 
start;  must  be  from  SLOW  mode). 


Eprom  Notes 

4 

If  you  have  one  of  the  I/F*s  that  have  an  EPROM  that 
overlays  the  ROM  and  contains  its  own  printer 
driver,  and  you  wish  to  use  "UPD"  instead,  you  can 
disable  the  EPROM.  On  most  devices  you  can  simply 
disable  the  EPROM  by  disconnecting  its  CHIP  SELECT 
NOT  and  CHIP  ENABLE  NOT  and  tying  them  to  +5V. 

To  disable  the  AERCO  ROM  card,  the  recommended 
modification  is  to  cut  the  trace  to  pin  11  of  the 
74LS27  and  tie  it  to  +5V  instead.  (It  is  presently 
connected  to  ground.)  Better  yet,  Install  a SPDT 
switch  so  you  can  turn  the  EPROM  on  and  off  at  will. 

The  Memotech  CIF  is  the  one  unit  that  I know  of  on 
which  this  won’t  work;  it  has  a PAL  chip  that  does 
the  overlay  decoding,  and  I haven’t  figured  out  a 
way  to  turn  it  off  and  still  have  the  I/O  port  work. 

The  Byte-Back  Modem  and  RS232  IF  might  present  a 
problem  with  some  RAMs  since  the  IF  and  modem  are 
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memory-mapped  at  3FFE-3FFF.  If  you  can't  get  it  to 
work  with  RAM  enabled  in  the  8-16 K range,  there  is  a 
one-chip  mod  to  handle  it*  (If  this  doesn't  appear 
in  this  issue,  contact  me  for  details.) 


You  also  have  to  change  the  transfer  address  in  the 
down-load  routine,  and  modify  all  BASIC  USR  call 
addresses  accordingly. 


Basic  Driver  Listing  4. 

i«REM  530  SPhCES  FOR  TRBL E,  C 
ODE . RND  D OWN -L ORDER . 

10  SRVE  "UPD-TR5" 

20  PRINT  "UPD  15  LORDED  •**,,»,** 
U5R  10363  = COPY  24  LINES" M , " ’ R 
RND  N.  THEN  USR  10391" , " = COPY 

N LINES  LIST  N , THEN  USR 

10402  ","  = LLIST  STRRTING  RT  LI 
NE  N“ i . . " RRND  CODE  " " (VAR . NRHE 
3 " " , THEN  " , " USR  10650 : INVERSE 

=CRP ITRLS" , " USR  10655:  INVERSE= 

LOWERCRSE" . " USR  10660:  SEND  AS 

ASCII  CODE- 

40  RRND  USR  17030 
45  PAUSE  4E4 
50  CL  5 

60  PRINT  , , " INPUT  CUSTOM  GRRP 
HIC  CHARACTERS?" 

65  PRUSE  4E4 

70  IF  INKEY $ = " N " THEN  STOP 
30  IF  INKEY $ < > " Y " THEN  GOTO  65 
30  PRINT  RT  10,0; "CODE  CHR$  ", 
"PRESENT  NEW  " . , " VRL  VRL  " 

35  SCROLL 
100  LET  C=0 
105  FOR  R =1  TO  74 
110  IF  R =11  THEN  LET  C=64 
115  IF  R =11  THEN  LET  R=64 
125  PRINT  A+C;TAB  5;CHR$  (R+C3 , 
" ; PEEK  (A+165143 ; TAB  24;"?" 
130  INPUT  B 
140  POKE  R+16514 . B 
150  PRINT  RT  21 . 24 ; B 
155  SCROLL 
157  SCROLL 
160  NEXT  R 
165  PRUSE  4E4 
167  CLS 

170  PRINT  "SRVE?  Y/N" 

175  PRUSE  4E4 

130  IF  INKEY $ = " N"  THEN  STOP 
190  IF  INKEY $ = " Y " THEN  RUN 
200  GOTO  170 


Open  Invitation 

This  printer  driver  is  the  result  of  considerable 
effort  by  myself  and  others  to  get  the  most  flexible 
and  compact  software  possible.  In  the  interest  of 
standardization,  I cordially  invite  present  and 
future  interface  manufacturers  to  supply  this 
routine  with  their  units,  PROVIDED  THERE  IS 
NO  ADDITIONAL  CHARGE  TO  THE  CUSTOMER, 
aside  from  a maximum  $5  handling  charge.  These 
routines  are  therefore  not  copyrighted,  though  I 
would  appreciate  mention  of  the  source. 


My  thanks  go  out  to  Donald  Thompson,  Bill  Fisher, 
Thomas  B.  Woods,  Aerco,  Byte-Back  and  Memotech  for 
their  help  and  contributions. 


BACKGAMMON 

Looking  for  a real  challenge?  Tired  of  sloe  response  tiie? 
Practicing  for  a tournaaent?  If  so,  you’ll  want  to  try  our 
Backaaaaon  oaae.  Features:  full -serpen  graphics,  break 
disaoled,  1002  eachine  code,  clean  loading,  start  play,  top 
rating  froe  TSUG  review,  eulti-gaee  scoring,  cube  doubling, 
siagle  operation,  documentation  included.  Requires  ZI81  or 
T81000  M/16K  RAH.  Available  on  cassette  for  only  110, 
In  a 10  gate  test  against  PSION,  BIuCAL  won  every  gaee! 
Hritefor  our  FREE. catalog  listing  100  prooraas  for  TS  1000 
and  2068.  Please  include  exoir.  date  on  K/VlSA  orders. 

5ZS  iMwSfr 

P.O.  Box  965 
Stinson  Beach,  CA  94970 


Relocating  UPD 

Relocating  UPD  is  simple.  Start  by  changing  all 
CALLs  to  the  new  addresses.  There  are  no  absolute 
JPs.  The  only  other  commands  that  need  to  be  changed 
are  at  299A,  299F,  29A4,  & 29A7.  These  load  the 

argument  of  the  CALL  at  2994  with  the  selected 
routine  for  LPRINT.  Hot  Z II's  "relocate"  command 
will  do  this  all  for  you. 

The  conversion  table  must  start  at  an  address  with 
the  low  byte  = zero  (e.g.  2000h,  4100h,  etc.)  If  you 
relocate  the  table,  then  change  the  command  at  29 A E 
to  LD  H,(new  high  byte  value).  This  is  the  only 
change  you'll  have  to  make  if  you  use  Hot  Z II's 
"Relocate"  command. 


DOWN-LOAD  TRANSFER 

ROUTINE 

4286-010802 

LD  BC ,0200 

428?  110028 

LD  DE , 2800 

428C  218240 

LD  HL , 4082 

428F  EDB0 

LDIR 

4291  C9 

RET 

4292  00 

NOP 

I -f  you  are  using  the  hex  loader, 

enter  the  hex  values  (01,  00,  02,  etc.) 

starting  at  prompt 

address  2A04 

QuarTerS 


FOR  TIMEX/SINCLAIR  ENTHUSIASTS 
PUBLISHED  BY  WMJ  DATA  SYSTEMS 

A quarterly  publication  with  an  emphasis 
on  the  use  of  the  BASIC  computer 
language  as  it  relates  to  the  T/S 
computers.1  QTS  provides:  programming 

tips  and  articles,  For  you...  up  to  date 
T/S  products,  dealers,  catalogs, 
publications,  reviews  on  hardware  and 
software • • • 

, t 

"QuarTerS  was  really  impressive 
this  spring  and  I would  like  to 
say,  "Well  done."  Keep  up  the 
great  work." 

Gary  Preston  II, 
Southern  VA  Timex 
Users  Network 

One  year  subscription  (4  issues)  only 
$8.00.  Overseas  subscription  only 
$11.00(US$).  Sample  copy:  $3.00.  Check 
or  money  order  to: 

WMJ  DATA  SYSTEMS 
Dept  SN 

4 Butterfly  Drive 
Hauppauge,  NY  11788 

JOIN  THE  QTS  FAMILY 
KEEP  THE  T/S  WORLD  ALIVE! 
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BUILDING  A 2068  DATABASE 


Mike  Trivlsonno 

1322  Golden  Gate  Blvd. 

Cleveland,  OH  44124 
216  449  1666 

The  concept  of  a Completely  Interactive  Database 
System  (CIDS)  that  has  been  implemented  on  a 
micro-computer  is  interesting  in  that  this  type  of 
environment  Is  normally  only  found  on  mainframe 
computers.  What  I hope  to  do  is  cover  the  various 
aspects  of  implementing  just  such  a system  in  the 
next  few  issues. 

CIDS  was  created  to  make  various  kinds  of  data  easier 
to  work  with,  although  ease  of  use  has  its  problems, 
as  we  will  discover.  It  may  not  be  super  duper  fast, 
but  it's  fast  enough.  It  may  not  hold  as  much  data  as 
some  programs,  but  it  holds  enough.  What's  more,  is 
that  it  can  do  more  with  the  data  than  other  programs 
of  a similar  nature.  (By  the  way,  there  aren't  many.) 
CIDS  files  aren't  totally  flexible,  but  they  are 
flexible.  For  example,  try  defining  graphic 
characters  with  a word  processor.  You'll  find  it  more 
challenging  than  you  thought!  With  CIDS  it's  much 
easier.  CIDS  will  meet  many  of  your  personal  needs, 
but  it  isn't  going  to  run  a business  without  some 
help  from  you. 

These  'problems'  are  not  evident  when  using  the  CIDS 
program.  CIDS  most  important  ability  is  its  apparent 
understanding  of  English  commands.  The  most 
significant  feature  incorporated  into  CIDS  is  its 
ability  to  expand.  You  definitely  will  not  find  this 
feature  in  many  programs.  Integrated  software  is 
totally  different.  This  too  will  be  elucidated  on  as 
we  progress  through  the  CIDS  environment. 


CIDS  Part  1 

Type  listing  one  into  your  computer.  Make  sure  you 
type  it  in  exactly  as  shown.  Do  not  change  line 
numbers,  add  or  delete  lines.  Take  your  time  and  do 
it  right.  When  your  done  save  the  program  to  tape. 

The  first  thing  we  must  do  is  initialize  the 
variables  that  we  will  use  and  the  dictionary  of 
commands  CIDS  will  use.  This  is  accomplished  in  line 
10.  This  line  calls  the  Initilization  routine 
starting  at  line  9010  and  ending  at  line  9040  with  a 
RETURN  statraent. 

By  having  the  initializatiion  at  the  end  of  the 
listing,  the  computer  only  has  to  execute  it  once. 

You  must  remember  that  when  your  computer  encounters 
a GOTO  or  a GOSUB,  it  starts  at  the  first  line  of  the 
program  and  checks  each  and  every  line  number  until 
it  finds  a match.  So,  for  example,  if  you  have  fifty 
lines  of  code  at  the  beginning  of  your  program  that 
asks  for  names,  numbers  or  other  data  and  the  core  of 
the  program  that  works  on  this  data  well  below  that; 
every  time  you  tell  the  computer  to  GOTO  the  main 
part  of  the  program  it  must  check  all  those  lines  you 
put  at  the  top.  The  computer  has  to  look  for  the  line 
using  brute  force;  it  doesn't  have  ESP.  If  you  are 
looking  for  a word  in  a dictionary,  do  you  Just 
automatically  perceive  the  page  and  line  number?  I 
think  not;  you  have  to  look  for  it  by  flipping 
through  the  pages.  Burying  the  code  in  this  manner 
will  speed  up  the  program  execution.  Whole  articles 
can  be  written  on  this  topic  alone,  But  it  is 


sufficient  for  us  to  realize  that  least  used  code 
goes  further  down  in  the  program. 

CIDS  is  a long  program.  This  Installment  deals  with 
just  the  startup  routine.  Other  sections  that  will 
surface  shortly  are  the  full  screen  editor  and  the 
ADTO  routine,  each  of  which  are  significant  in  their 
own  right.  Long  programs  usually  have  several  things 
to  do  and  so,  naturally,  need  several  variables.  Be 
sure  to  follow  along  closely. 

A list  of  all  the  variables  used  so  far  can  be  found 
at  the  end  of  this  article.  Keep  it  handy.  You  will 
also  find  an  annotated  listing.  Within  the  article  we 
will  go  over  in  detail  the  operation  of  each  routine 
as  it  appears  in  the  program. 

The  first  line  of  the  initialization  routine  Ls  9010. 

This  line  is  the  one  that  sets  up  the  variables  that 
are  necssary  for  CIDS  to  operate  on  a simple  level. 
Essentially,  it  DIMs  a large  three  dimensional  array, 
and  also  defines  three  variables  mf,  ml  and  me  to 
keep  track  of  the  number  of  files  (mf),  the  number  of 
lines  allowed  in  a file  (ml)  and  the  number  of 
characters  allowed  in  each  line  (me).  The  next 
statement  sets  up  a two  dimensional  array  that  is  the 
same  as  the  number  of  lines  and  characters  allowed  in 
a single  file.  You  will  use  this  array  to  store  files 
that  are  deleted.  That  way  you  wish  to  have  the  file 
back, then  it  is  stored  away. 

The  ninth  statement  defines  the  variable  g.  G keeps 
track  of  the  file  with  which  you  are  currently 
working.  The  variable  f keeps  track  of  the  number  of 
files  that  are  currently  used. 

The  next  statement  DIMs  the  array  d$.  This  is  be  our 
dictionary  of  com  man ds  that  CIDS  understands  and  the 
line  numbers  where  the  routines  begin.  Also  defined 
are  some  variables  that  are  used  for  different  things 
at  different  times.  The  string  variable  a$  holds  the 
com  man  ds  that  are  entered. 

Lines  9020,  9025,  and  9030  fill  up  the  array  d$  with 
the  various  routines  that  CIDS  performs.  It  is 
important  that  these  lines  are  entered  correctly  or 
program  control  will  most  likely  send  you  to 
unpredictable  places.  This  area  of  the  program  will 
also  tell  you  the  beginning  line  number  of  each 
routine.  This  handy  system  turns  out  to  be  self 
documentation. 

When  I first  conceived  CIDS,  I utilized  a menu  driven 
routine  in  which  you  typed  in  the  name  of  the  routine 
you  wished  to  access.  Since  this  was  cumbersome,  I 
changed  to  this  approach,  which  is  infinitely  easier 
to  use.  If  you  think  the  adto  command  should  be  named 
edit,  just  change  d$(7)  to  "edit5000."  Be  sure  that 
if  you  do  decide  to  alter  the  names  of  any  of  the 
routines  that  you  truncate  them  to  only  the  first 
four  letters  as  in  d$(6). 

The  dictionary  is  what  gives  CIDS  its  ability  to 
expand.  If  you  write  a routine  to  replace  an  existing 
one,  then  change  the  dictionary  entry  name  and  viola, 
your  new  routine  is  Implemented.  It  could  POKE  values 
into  memory  locations  or  define  graphic  characters. 

The  possibilities  are  endless.  Remove  routines  and 
get  more  memory  for  data. 

| Now,  with  variables  initialized,  we  RETURN  to  line  10 
statement  2,  which  sends  us  to  another  subroutine  at 

j line  1506.  Now,  if  you  take  a quick  look  at  line  9020 
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statement  3 you  will  see: 

LET  d$(17)="helpl506" 

This  subroutine  (help)  displays  the  command  content 
of  d$.  After  the  commands  have  been  displayed,  we 
RETURN  to  line  10  statement  3.  We  then  go  to  line  105 
from  which  we  go  sub  the  input  routine.  The  input 
routine  is  between  lines  200  and  290.  This  routine  is 
essentially  an  INPUT  and  string  slice  subroutine  that 
can  be  called  from  anywhere  in  the  program.  Imagine 
never  having  to  write  another  input  routine!  It 
accepts  input  (in  a$)  from  the  keyboard,  looks  for 
the  first  space  and  slices  the  word  out.  The  sliced 
word  is  then  stored  in  the  variable  w$(for  word$). 

Nifty  eh? 

After  we  slice  out  the  word,  we  do  some  error 
detecting  to  make  sure  that  no  bad  things  get 
through.  We  then  RETURN  to  line  105.  We  then  call  yet 
another  subroutine  at  line  400.  This  routine  then 
takes  the  word  sliced  out  of  a$  and  compares  it  with 
the  dictonary  that  we  set  up  in  lines  9020  through 
9030.  If  a match  is  found, then  we  hop  out  of  the  loop 
and  go  to  the  subroutine  specified  by  the  last  four 
characters  of  the  dictionary  entry.  When  we  finish 
the  subroutine,  we  make  a check  to  see  if  the  first 
character  of  a$  is  a comma.  If  it  is,  we  slice  it  out 
and  go  back  to  the  subroutine  that  we  just  came  back 
from.  If  the  first  character  of  a$  is  not  a comma  we 
simply  RETURN.  Since  the  routine  was  called  from  line 
105  statement  2,  we  continue  where  we  left  off. 

This  brings  us  to  the  BEEP  statment.  After  that,  we 
go  back  to  the  first  statement, and  the  whole  process 
starts  all  over  again.  We  are  all  done.  Fini! 


Now  that  you  have  the  first  part  of  the  CIDS  program, 
it  is  time  to  go  over  the  first  two  commands  and  the 
screen  color  change  routine.  The  first  one  will  clear 
the  screen  and  the  second  one  will  display  on  the 
screen  the  names  of  the  commands  that  CIDS  is 
currently  using.  The  color  adjust  routine  will  change 
the  screen  to  any  color  you  wish. 


Let*s  start  with  the  simplest  routine;  the  clear 
screen  routine.  Look  at  line  9010  statement  2.  You 
will  see: 

LET  d$(4)="cleal506" 


Clea  is  the  name  of  the  routine.  1506  is  the  line 
number  it  begins  execution.  Well,  if  you  take  a look 
at  line  1506  you  will  see: 

1506  CLS:  RETURN 


Now,  when  you  are  prompted  for  input  and  you  say 
something  like,  "please  clear  the  screen  of  all  this 
trash,"  CIDS  will  eventually  locate  the  word  clear. 
CIDS  will  then  go  through  the  dictionary  and  find  the 
word  clea.  Then  CIDS  will  hop  over  to  the  subroutine 
specified  by  the  last  four  characters  of  the 
dictionary  entry.  Your  screen  is  cleared. 

The  next  routine  is  not  a command,  but  instead  a 
routine  to  change  the  screen  color.  It  is  located  at 
line  300.  Whatever  x equals  will  be  the  screen 
color. 


command  displays  on  the  screen  the  commands  CIDS  is 
currently  using.  It  can  be  easily  modified  to  display 
other  Important  information,  but  what*s  important  is 
your  decision.  You  might  want  to  display  how  many 
files  are  taken  and  how  many  are  available.  For 
example,  after  NEXT  ts,  add  PRINT  "files  used  f 
;*"files  free  ";mf-f 

The  rest  of  the  lines  will  be  filled  in  in  future 
instalments  of  this  article.  As  you  can  see,  there  a 
many  of  them.  For  example,  the  commands  make,  find, 
adto,  delete  and  display  will  be  our  next  exercise. 


* Imagine  a full  screen  editor  that  lets  you 
insert  and  delete  characters  in  BASIC!  We 
will  have  one  of  those  next  issue. 

* Imagine  an  abort  command  that  will  restore  a 
file  to  its  original  state  AFTER  you*ve 
messed  it  up! 

* Imagine  adding  columns  of  numbers,  taking  the 
totals  and  putting  them  ANYWHERE  in  the 
database! 

* Imagine  sorting  the  database  on  any  record! 


* Imagine  windowing  in  BASIC! 

* Imagine  merging  new  commands  to  perform 
specific  tasks! 

We  will  cover  these  tasks  and  more  in  upcoming  issues 
as  we  fully  explore  the  possibilities  and  usefulness 
of  *CIDS  Building  A Database  Program.* 

For  those  of  you  who  would  like  to  get  a jump  on  this 
series,  a tape  of  the  CIDS  program  is  available 
directly  from  Mike  for  $14.95  ppd.-ed. 


LIST  OF  VARIABLES  USED  SO  FAR 

IN  ORDER  OF 

APPEARENCE. 

VARIABLE 

USE 

o 

INK  color 

mf 

maximm  number  of 
files  allowed. 

ml 

max.  no.  of  lines 
allowed  per  file. 

me 

max.  no.; of  characters 
allowed  per  line. 

fl 

flag.  - 

f $(mf  ,ml  ,mc) 

3-d  array  for  our  data 

r$(ml  ,mc) 

2-d  array  to  store 
deleted  file. 

g 

nimnber  of  file  in  use 

f 

nimber  of  files  made 

d$(28,8) 

holds  conrmands  A the 
lines  \tfiere  they  begin 

h A i 

all  purpose. 

s$ 

temporary  storage  area. 

prev 

number  of  previous  file. 

a$ 

comnand  string. 

1 

LENgth  of  a$ 

w$ 

word  sliced  out  of  a$. 

w 

loop. 

X 

PAPER  color  or  x pos. 

t 

loop. 

The  next  command  is  the  help  command.  The  help 
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10  GO  SUB  9010:  GO  SUB  1506:  G 

0 TO  105 


105  GO  SUB  200  GO  SUB  400 : BEE 

P .025,40:  GO  TO  105 

200  IF  a $ < > " " THEN  GO  TO  240 
210  INPUT  "READY >>  LINE  a$ 

PRINT  ">===>  " ;a$ 

240  FOR  1 = 1 TO  LEN  a $ 

261  IF  f l =1  THEN  RETURN 
270  IF  UJ$  = " thariKS"  THEN  PRINT  " 
Your  welcome." 

230  IF  IL* $ = ‘ ' " THEN  GO  TO  200 

235  IF  LEN  U)$<4  THEN  LET  W$=W$+ 

230  RETURN 

300  FOR  w=l  TO  21:  PRINT  PAPER 

x ; " 

" : NEXT  W : RETURN 

410  FOR  X =1  TO  23:  IF  d$(X,  TO 

4)  =W$  ( TO  4)  THEN  GO  TO  450 

420  NEXT  X 
430  RETURN 
450  LET  W$=U)$(  TO  4) 

455  GO  SUB  URL  d$(X,5  TO  ):  IF 

a $ C> " " THEN  GO  TO  465 


460  RETURN 

465  IF  a $ ( 1)  <>",'■  THEN  GO  TO  46 

0 

470  LET  a $=a  $ (3  TO  ):  GO  TO  455 


1506  CL 5 : LET  x =3 : INK  7:  GO  SU 

B 300:  PRINT  RT  0,7; "COMMANDS  RU 

AILABLE":  FOR  t =1  TO  23:  PRINT  d 

$ (t  . TO  4)  ; PAPER  x ; "■■i"  ; : BEE 

P .01.50:  NEXT  t:  INK  7:  RETURN 

9010  LET  0=7:  POKE  23609.6:  LET 

m f =26  LET  ml =21:  LET  me  =32 : LET 

f 1=0:  DIM  f$(mf,mi,mc) : DIM  r $ ( 
ml. me):  LET  Q=0:  LET  f =0 : DIM  d$ 

(23,3):  LET  h =1 : LET  i =21 : LET  £ 

$ = " " . LET  p rev  =0 

9020  LET  d$ (14) ="prev6500" : LET 

d $ ( 4>)  ="C  lea  1500 ” : LET  d$(17)="he 

lp 1506" : LET  d$ (3) ="ma Ke 1510" : L 

ET  d$  (1)  =" find 500" : LET  d$(5)="n 
ext 650 " : LET  d$ (6) ="di SP630" : LE 

T d$ (7) ="adto5000" : LET  d$(3)="K 

€ys3750":  LET  d$ (9) ="£Ort3600" : 

LET  d$ (10) =”de lel030" : LET  d$i!6 

) ="namel200" 

9025  LET  d$ (21) ="scral030"  LET 
d$  (22)  ="  lC-ca500"  : LET  d$(23)="cr 

ea 1510" : LET  d$ (24) ="remol030" : 
LET  d$  (25)  ="  le  ft3300"  : LET  d$(26 

) =*T  i gh3350" : LET  d $ (27)  =" cen 1 34 

00":  LET  d$ (23) ="modi3500" 

9030  LET  d$  (13)  ="ad.ju7000"  : LET 

d$ (2) ="eva 1150" : LET  d$(15)="C0P 

y 1650 " : LET  d $ ( 19 ) =" T€£ t 1760 " : L 

ET  d$ (13) ="£avel540" : LET  d$(20) 

="load!250"  LET  d$ (11) ="ZOne300 
0"  LET  d$ ( 12) ="move 1900" : LET  a 

$="•• 

9040  POKE  23692,255:  PAPER  0:  CL 

S RETURN  

9995  PRINT  BSBEBB  ,,;ui$(  TO  4 

);">"; 

9996  PRINT  ("HO  file"  AND  U)$="ri 
ght")4("no  file"  AND  w$  = “left")  + 
("no  file"  AND  u)$=" cen t " ) + ( "no  f 
ie"  and  u»$=" copy " ) + ( "no  file"  AN 
D uj$="move " ) 4 ( "no  file"  and  uj$=" 
zone2")+("no  file"  and  w$="editl 
")  + (“no  file"  AND  li>$="blOCl")  + (" 
no  file"  AND  ui$="ad  to  " ) + ( "ou  t of 

range"  AND  u)$="zone  1"  ) + ( "no  fi  l 
e"  AND  u)$="de  le")  + ("no  file"  AND 
w$="disp lay") ; 

9997  PRINT  ("see  pg.23"  AND  U)$  = " 
zone4" ) 4 ( "no  file"  AND  w$=“grap" 
) + ("no  previous  file"  and  ui$="pr 
ev")  + ("column?"  AND  u)$="zone  " ) + ( 
"next  before  find"  AND  w$="next" 
) + ("out  of  range"  AND  w$="disp") 
+ ("operator  required"  AND  ui$="ev 
a l")  + ("name  short"  and  u)$="find" 
)+("name  short"  and  w$="maKe"); 
9993  PRINT  " pq.":  (13  AND  W$  = "di 
Sp " ) 4 (25  AND  W$=" le f t") 4 (27  AND 
u>$="  r i gh  " ) 4 (27  AND  w$="  cen  t " ) 4 ( 1 
2 AND  U#$  = "maRe " ) 4 (13  AND  w$="fin 
d " ) 4 (14  AND  UJ$="adt0‘‘)  4 (16  AND  W 
$ = "de  le")  4 (13  AND  ui$="disp  lay " ) 4 
(19  AND  U>$  = "nex  t " ) 4 (20  AND  U)$  = "p 
rev")  4 (22  AND  u)$="move " ) 4 (30  AND 

u)$="zone")  4 (32  AND  (i)$  = "eva  l " ) 4 ( 
29  AND  lb$  = "£Ort") 

9999  PRINT  : RETURN 


GO  INITIALIZE  DICTIONARY  AND 
VARIBLES:  DISPLAY  COMMANDS 
GO  TO  INPUT  LOOP. 

GO  GET  INPUT:  SEARCH  DICTIONARY 
DO  IT  AGAIN. 

IF  a$  IS  NOT  EMPTY  THEN  SLICE  OUT  NEXT  WORD. 
IF  a*  IS  EMPTY  THEN  ACCEPT  INPUT. 

LOOP  TO  SLICE  OUT  WORD. 

FLAG 

SOMETHING  CUTE 
ERROR  TRAP 

IF  w$(ord)  IS  TOO  SHORT  THEN  PAD  IT  OUT. 

DONE 

SCREEN  COLOR  ADJUST 


LOOP  TO  SEARCH  d*(ictonary) 

IF  A MATCH  IS  FOUND  THEN  CONTROL  GOES  TO  450. 

KEEP  LOOPING 

IF  NO  MATCH  THEN  RETURN. 

CHOP  OFF  EXTRA  CHARACTERS 
GO  TO  THE  SUBROUTINE  SPECIFIED  BY  THE 
LAST  FOUR  CHARACTER  OF  d$():  CHECK  a$  AND 
IF  NOT  EMPTY  THEN  CONTROL  GOES  TO  LINE  465. 
DONE 

IF  THE  FIRST  CHARACTER  OF  a$  IS  A COMVIA  THEN 
GO  BACK  TO  THE  SUBROUTINE  YOU  JUST  CAME  FROM. 
SLICE  OUT  (,)  AND  SPACE  THAT  FOLLOWS.  GOTO 
SAME  SUBROUTINE. 

LOOP  TO  DISPLAY  COMMANDS  CURRENTLY  AVAILABLE. 


INITIALIZE  VARIABLES. 


INITIALIZE  DICTIONARY 


DITTO 


DITTO 


DONE 

ERROR.  PRINT  CURRENT  w*(ORD) 
PRINT  ERROR 


DITTO 


DITTO 


DONE 
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EXPANDED  2068  INPUT  PROMPTS 


By  Tom  Woods 

One  day,  as  I was  rummaging  through  the  TS2068  ROM, 

I discovered  that  there  was  more  to  the  INPUT 
command  than  what  was  described  In  the  manual. 

Digging  a little  deeper,  I found  that  what’s 
presented  here  is  covered  In  detail  In  the  SPECTRUM 
manual.  Well,  so  much  for  international 
communications. 

The  TS2068  manual  tells  us  that  the  INPUT  command 
lets  you  insert  a prompt  at  the  bottom  of  the 
screen.  No  doubt,  you  have  seen  this  many  times: 

10  INPUT  "ENTER  DESIRED  VALUE:n;X 

The  effect  of  this  line  is  to  print  at  the  bottom  of 
the  screen  the  words-ENTER  DESIRED  VALUE.  The  input 
cursor  follows  this  prompt,  and  the  computer  waits 
for  you  to  type  in  some  number  which  will  go  into 
the  variable  X. 


Thatfs  pretty  basic  stuff.  Did  you  know  that  instead 
of  putting  a prompt  between  quotation  marks,  you  can 
also  refer  to  string  and  numeric  variables?  Consider 
these  lines: 

10  LET  A $=  "ENTER  DESIRED  VALUE:" 

20  INPUT  (A$);X 

Here,  the  effect  is  the  same.  The  prompt  gets 
printed  along  with  the  input  cursor.  It  is  done  not 
with  quotes,  but  with  parentheses  and  reference  to 
A$.  This  opens  up  many  possibilities.  For  example, 
in  a game  for  many  players: 


10  INPUT  "HOW  MANY  PLAYERS?":P 
20  DIM  N*(P,5):  FOR  X=1  TO  P 
30  INPUT  ("TYPE  THE  NAME  FOR  P 
LAYER  ";X);N$(X) 

40  NEXT  X 

And  then,  later  in  the  game  you  could  have: 

100  FOR  X=1  TO  P 

110  INPUT  (N$(x);",  WHAT’S  YOUR 

MO  V E?");A$ 

120  NEXT  X 

A variation  on  this  theme  might  be  typing  in  a long 
list  of  numbers  or  words.  You  can  use  this  quick  and 
dirty  input  routine  to  tell  you  what  the  current 
value  for  a variable  is  before  entering  a new 
value. 

1 DIM  A(10) 

10  FOR  X=1  TO  10 
20  INPUT  ("current  value  for  A 
("jX;")  IS:  ";A(X));TAB  0;"NEW  V 
ALUE?  ";B* 

30  IF  B$<>""  THEN  LET  A(X)=  VA 
L B$ 

40  NEXT  X 

You  can,  in  fact,  use  AT,  TAB,  INK,  FLASH  or  any 
other  print  para  meter  in  conjunction  with  the  input 
command.  The  only  rule  to  follow  is  that  any  item 
which  begins  with  a letter  of  the  alphabet  will 
become  the  variable  which  takes  on  the  value  you 
type  in  UNLESS  the  item  is  enclosed  with  quotes. 

Have  fun  experimenting  with  this.  If  you  want  more 
information  on  the  INPUT  command,  try  to  obtain  a 
copy  of  the  Sinclair  Spectrum  User’s  Manual. 


TASMAN  * QUADRA  CHART 

I 111  ■ — 


David  C.  Ridge 
106  Seventh  St. 

Toronto,  Ontario 
Canada  M8V  3B4 
416  259-8682 

Dave  has  come  up  with  some  very  useful  program 
modifications  to  better  integrate  your  system.  He 
welcomes  and  invites  any  correspondence  about  2068 
computers. 

This  program  addition  will  allow  you  to  make  full 
size  printer  copies  from  Quadra-Chart. 


1.  Make  a copy  of  Quadra-Chart  by  loading  it  in  your 
computer  and  breaking  the  program  with  the  BREAK  and 
CAP/SHIFT  keys.  Insert  a blank  tape  in  your 
recorder,  type  GOTO  9990  and  press  ENTER.  Keep 
watching  your  screen  for  the  prompts  that  your 
computer  will  give  during  the  SAVE  routine. 

2.  Clear  your  memory  by  typing  NEW,  and  then  type  in 
the  following  listing.  Note:  It  is  critical  that  you 

use  the  program  line  numbers  exactly  as  written. 
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113 

100 

2395 

6565 

7365 

7940 

100 

9100 

9105 

9110 

(L/ 

9115 

9120 

9125 

9130 

9135 

9140 

9150 

9155 

9160 

9991 

9993 

9995 

,255 


LOAD  ““CODE 
IF  INKEY $=" C ‘ 


THEN  GO  SUB  9 


IF  ..i$="C"  THEN  GO  SUB  9100 
IF  j$="C"  THEN  GO  SUB  9100 
IF  h $ ="  C " THEN  GO  SUB  9100 
IF  INKEY $ = “Z"  THEN  GO  SUB  9 

REH  PRINTER  ROUTINE 
LET  lLi$  = INKEY$ 

INPUT  "Large  or  small  copy- 
S)  ; uj$ 

IF  W$=“l"  THEN  GO  TO  9130 
IF  UJ$="S"  THEN  GO  TO  9150 
GO  TO  9105 
POKE  23543,0 
RPNDOHIZE  USR  23296 ‘ 

RETURN 

POKE  23543 , 1 
RPNDOHIZE  USR  23296 
RETURN 

SPUE  "wind “CODE  53000.6912 
SPUE  “Line "CODE  51000.6912 
SPUE  “t as -Sh i nwa "CODE  2329F 


3.  DO  NOT  RUN  this  program!  Insert  another  blank 
tape  into  your  recorder  and  SAVE  this  program  by 
typing  SAVE  "quad- mod",  without  a line  number.  Press 
ENTER. 

4.  Type  NEW,  and  load  that  copy  of  Quadra-Chart  that 
you  Just  made.  Break  the  program  again  and  load  the 
TAS-SHINWA  graphics  driver.  Tas-Shinwa  is  the  driver 
for  the  Spirit-80  printer.  You  will  have  to  load  the 
graphics  driver  for  your  own  printer  from  the  Tasman 
cassette  software.  In  such  a case,  change  the  POKE 
and  RANDOMIZE  statements  in  the  above  program  to 
suit  your  particular  software  driver. 

5.  Remove  the  just  made  copy  of  Quadra-Chart  from 
your  recorder.  Load  the  modification  with  the  MERGE 
"quad- mod"  command. 

6.  Insert  another  blank  tape  into  your  recorder  and 
save  the  whole  thing  by  typing  GOTO  9990.  Be  alert 
for  the  screen  prompts.  This  will  be  your  finished 
copy. 


DELPHIC  EHTCRPRI 


ZX-81  and  TS-1000  Users  !! 


2K  and  4K  Programmer  s Utility  EPROMs 
for  your  computer. 

EPROMs  contain  routines  for  editing  and  development  of 
Basic  programs  Routines  are  Renumber,  Copy,  Search, 
Delete,  Merge,  REM  Kill,  Free  Space,  Unlock,  Variables 
Print,  Move,  REM  Generate,  Hex/Decimal  Converter, 
Program  Size,  NVM  Storage,  Tape  Index.  Requires  Hunter 
NVM,  RomPak,  CAI/0  or  other  auxiliary  memory  board 

2K  EPROM  (8  routines)  $18  50 

4K  EPROM  (15  routines)  $25  00 

Delphic  Enterprises 
P.0  Box  72205 
Corpus  Christi,  TX  78472 


QL  SUPER  BASIC 


The  QL  Comes  of  Age 

by  Tom  Woods 

In  the  last  issue  I gave  you  a brief  overview  of  the 
hardware  angle  to  Sinclair’s  latest  computer,  the 
QL.  This  time,  I'll  tell  you  about  some  of  the 
features  available  in  this  computer’s  built-in  Super 
Basic  language. 


Data  Channeling 

Like  the  TS2068  and  the  Sinclair  Spectrum,  all  input 
and  output  is  routed  through  "channels."  The  TV 
display,  the  keyboard,  microdrives,  and  serial  ports 
are  all  considered  channels.  If  you  hook  up 
additional  peripherals,  you  would  define  new 
channels  in  order  to  input  from  or  output  to  them. 

By  associating  these  channels  with  Basic  com  mart ds, 
such  as,  PRINT  or  INPUT,  you  can  move  data  and 
programs  from  device  to  device  with  tremendous  ease. 
Unusual  effects  can  be  achieved.  For  example,  you 
can  SAVE  to  the  TV  screen,  or  to  the  serial  port. 

You  can  PRINT  to  the  Micro  Drives,  or  INPUT  from 
them. 

Besides  physical  devices,  channels  can  be  used  to 
output  data  to  WINDOWS,  or  sections  of  the  TV  screen 
which  act  completely  independently  from  any  other 
section  of  the  screen.  WINDOWS  add  an  interesting 
new  flavor  to  the  art  of  programming.  They  can  be 
used, for  instance,  to  produce  many  interesting 
displays.  After  OPENning  a channel  to  the  screen, 
you  use  the  Basic  commands  WINDOW,  INK,  PAPER  and 
BORDER;  to  define  size,  location,  color  and  border 
size  of  a window.  Windows  can  overlap  each  other  and 
you  can  have  as  many  as  you  want  at  any  given 
moment. 

When  PRINTing  into  a window,  you  can  select 
different  character  sizes  by  using  the  command 


CSIZE.  The  CURSOR  command  will  put  the  input  cursor 
at  the  line,  column  position  desired.  Once  something 
is  printed  in  a window,  you  can  SCROLL  all  of  it  or 
part  of  it  up  or  down.  Horizontal  scrolling  (again 
all  or  part,  left  or  right)  is  done  using  the  PAN 
command. 

In  addition  to  Printing  to  a window,  you  can  also 
perform  all  kinds  of  graphics  tricks  using  CIRCLE 
(and  ellipse),  LINE,  ARC,  and  POINT  commands.  FILL 
will  color  objects  with  a specified  ink  color. 

Programmability 

When  I first  got  my  QL,  sorting  out  the  140-odd  new 
commands  was  troublesome.  How  in  the  world  was  I 
ever  going  to  learn  how  to  use  all  these  new 
functions?  Well,  I’m  still  wrestling  with  that 
question,  but  the  more  I use  this  computer,  the  more 
I like  it. 

From  a programmer's  standpoint,  there  are  some 
commands  which  make  the  QL  a joy  to  use.  AUTO  will 
start  the  automatic  line  numbering  feature.  By 
attaching  two  numbers  to  the  Auto  command,  you  can 
specify  the  starting  line  and  the  increment.  Also 
built-in  is  RENUM  which,  as  its  name  implies, 
renumbers  any  or  all  of  a program  in  memory.  Add  to 
this  extensive  micro  drive  commands:  LRUN  (load  and 
run)  and  MRUN  (merge  and  run)  are  just  two  of  many. 
Line  numbers  can  range  from  1 to  32767,  so  you 
should  never  feel  cramped  for  space. 

If  you  use  a monitor  with  the  QL,  you  can  make  use 
of  the  computer's  Hi- res  mode  which  offers  the 
programmer  a particularly  nice  touch.  In  this  mode 
the  main  part  of  the  screen  is  divided  into  two 
separate  windows,  Program  listings  will  go  in  one, 
while  output  from  a program  goes  in  the  other.  Being 
able  to  simultaneously  watch  a display  and  view  a 
listing  is  very  handy. 

Many  of  the  old  familiar  Basic  commands  of  the 
TS1000/2068  are  presented  in  the  QL  with  fancy  new 
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WHILE  THEY  LAST.  . . 

BRAND  NEW  TOP  QUALITY 

DOUBLE  SIDE  DOUBLE  DENSITV 

DISC  DRIVES  $99 

2/3  HEIGHT  400  KILOBYTE  CREAM  COLORED 

DUAL  DRIVE  CABINET,  TOP  QUALITY 
HEAVY  GUAGE  STEEL  WITH  5 AMP<jk 
SW/TCH/NG  POWER  CONVERTER  JP  ““ 

We  want  to  say  THANE  YOU  for  the  many  months  of  your 
patience  Our  Disc  Interface  for  the  TS2066  has  64K  of  on- 
board RAM  which  may  be  used  as  a second  bank  of  system 
memory  or  a full-blown  CPM  system.  It  controls  4 floppy 
disc  drives  of  any  size-  from  3 to  0 inches.  1 or  2 sides, 
single,  double,  or  quad  density  (5"  DD  not  yet  supported). 
It  also  includes  a complete  RGB  interface  with  separated 
sync  so  you  can  SEE  the  High  Resolution  Color  Graphics 
that  this  machine  produces.  It  does  not  include  serial  or 
parallel  interfaces  . . . you  add  as  many  as  you  like  at 
$ 69  for  1 Centronics  Type  Parallel  Interface,  P/N  CP68 
t 99  for  dual  independent  RS-2 32  Serial  Interface,  RS66 
The  Disc  Board  is  called  FD6$  and  costs  $ 199.  Deduct  $ 10 
for  the  first  CP66  or  RS6$  Add  t 3 / item  shipping 
We  are  now  taking  orders 

AEDCO  Box  18093,  Austin,  TX  78760 

iiuiiiiiirww  . , 7. 

ACME  electric  ROBOT  co  vO  1 E-  ) 1 vJO  / H 


ACME  ELECTRIC  ROBOT  CO 
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capabilities.  FOR...  NEXT...  is  a good  example.  With 
the  old  For....  NEXT....  command,  you  could  set  up 
a repeating  loop  to  execute  program  lines  many 
times.  Each  time  the  lines  are  repeated,  the  control 
variable  of  the  FOR....  NEXT....  command  would  be 
incremented  or  decremented.  The  Super  Basic  FOR.... 
NEXT....  does  the  same  thing,  but  in  addition  to 
simple  incrementing  or  decrementing,  you  can  specify 
the  exact  value  of  the  control  variable.  In  the  QL 
such  a line  would  look  like  this: 

FOR  X =2, 4, 1,10, 5, 15  TO  20 

Here,  each  time  the  loop  repeats,  the  variable  X 
takes  on  the  respective  values  2,  4,  1,  10,  and  5, 
then  15,  16,  17,  18,  19,  and  20.  You  can  compound  a 
line  like  this  to  the  extreme: 

FOR  X=30  to  80  step  3,5,1,11  TO  25,5,10  11,32 

TO  0 STEP  -1 

This  loop  counts  from  30  to  80  by  three's;  then  it 
counts  by  5 and  1;  then  11  to  25  by  one's;  then  5, 
10  and  11;  and  finally,  it  counts  backwards  from  32 
to  0 by  one's.  AMAZING! 


String  & Variable  Handling 

Remember  how  other  computers'  hackers  would  put  down 
the  ZX/TS  machines,  because  you  had  to  use  LET  when 
you  defined  a variable?  Well,  the  QL  doesn't  make 
you  do  this  anymore.  It  will  accept: 

10  A=120 
15  B $s  "hello" 

But,  that's  not  all  it  can  do.  Unlike  any  other 
version  of  Basic  that  I've  seen,  QL  Super  Basic  lets 
you  perform  the  following: 

10  NUMBER=120 

20  A 9-NUMBER  look  Ma,  no  quotes! 

30  PRINT  A$ 

The  result  of  these  lines  is  a string  variable 
consisting  of  three  characters.  They  read  "120."  You 
can  further  extend  this  short  program  with  these: 

40  PRINT  A9+A9 
50  NEXT_NUMBER=A|  A A| 

60  PRINT  NEXT_NUMBER 

Line  40  adds  120  and  120  together  and  prints  240! 
Line  50  takes  "120"  and  combines  it  with  itself  to 
produce  "120120".  This  value  is  then  assigned  to  the 
numeric  variable,  NEXT_N UMBER. 

All  this  points  to  some  major  differences  between 
Super  Basic  and  ZX/TS  Basic.  If  you  try  adding  two 
strings  using  the  plus  sign,  the  QL  will  always  try 
to  treat  the  strings  as  numbers  and  add  the  values 
together.  This  is  true  even  if  A 9=  "hello"  and 
B 9=  "good-bye. " The  computer  will  look  for  numeric 
variables  called  hello  and  good-bye  and  try  to  add 
them  together. 

If  you  want  to  combine  strings  you  use  the  ampersand 

(A): 

10  A9="HI  " 

20  B9="THERE" 

30  C9-A9  A B9 

This  will  result  in  a string  variable,  C3,  which 
when  printed  would  read  HI  THERE. 


The  names  that  you  give  variables  can  be  any  length 
up  to  255  characters,  but  you  can't  use  blank 
spaces.  Instead,  you  separate  words  with  the 
underscore.  Thus, 

LET  DAY_0 F_TH E__W EE K 9=  "Tuesday" 

This  feature  makes  writing  understandable  Basic 
programs  much  easier. 

Strings  are  limited  to  a length  of  32 K characters. 

This  is  restricting,  but  not  constricting.  A new 
command,  INSTR,  can  test  the  contents  of  a string 
for  a match  to  another  string.  You  could  say: 

10  LET  DATA9="Now  is  the  time  for  all  good 
men..." 

20  LET  SEARCH9="time" 

30  PRINT  SEARCH9  INSTR  DATA9 

The  result  will  be  a number  (12  in  this  case)  which 
points  to  the  character  in  DATA 3 where  the  contents 
of  SEARCH9  can  be  found.  If  a match  is  not  found, 
then  the  INSTR  function  will  return  a zero.  Being 
the  author  of  ZX  PRO /FILE  program,  I perked  right  up 
when  I discovered  INSTR,  because  it  is  very  similar 
to  Pro/ File's  search  routine. 

I ran  some  informal  speed  tests  using  INSTR  and 
discovered  that  this  function  can  search  through 
16,000  characters  in  somewhere  around  5 seconds. 
That's  not  nearly  as  fast  as  Pro/File,  but  still  its 
quite  respectable.  To  have  a command  like  this  in 
Basic  is  very  valuable,  indeed. 

Programs  & Prose 

Procedures  are  the  most  exciting  new  functions 
available.  They  are  second  generation  GO  SUBS  which 
are  easy  to  follow  and  a joy  to  implement,  because 
like  variables,  you  give  them  names.  However,  you 
give  them  English  names.  To  run  a procedure  you  just 
type  the  name  on  a program  line.  The  computer  keeps 
track  of  everything  else:  where  it's  going,  where 
it's  coming  from,  etc.  [This  is  very  similar  to 
Pascal  language  in  structure,  but  with  the 
programming  ease  of  Basic.-ed] 

If  you  have  ever  written  programs  which  make  use  of 
subroutines,  I'm  sure  you  can  see  the  similarity. 

The  problem  with  subroutines,  however,  is  that  if 
you  make  heavy  use  of  them  (e.g.,  GOSUB  to  a GOSUB 
to  a GOSUB),  it  doesn't  take  long  before  you're  up 
to  your  neck  in  Gosubs  and  you  don't  know  if  you're 
coming  or  going. 

QL's  procedures  are  inherently  easier  to  keep  track 
of  because  the  name  you  give  the  procedure  can 
describe  exactly  what  the  procedure  1s  intended  to 
do. 

There's  another  advantage  to  procedures.  Variables 
used  within  one  can  be  LOCAL  to  the  procedure 
itself.  In  other  words,  you  can  use  the  variable  X 
in  several  different  procedures,  as  well  as  in  the 
main  body  of  the  program.  The  computer  will  keep 
them  all  separate  even  though  they  have  the  same 
name.  Gone  are  the  hassles  of  Basic  bugs  because  you 
accidently  changed  the  value  of  some  variable. 

After  you  define  your  procedures  and  call  upon  them 
using  their  very  natural  names,  your  program  will 
look  more  like  written  prose  than  a program.  This  is 
extremely  helpful  when  you  look  at  your  listing  and 
try  to  make  sense  out  of  your  program.  Procedure 
names  will  tell  you  just  what  a group  of  lines  is 
supposed  to  do. 
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To  give  you  an  idea  of  what  a "procedural"  QL 
program  looks  like,  take  this  hypothetical  listing 
of  a program  that  moves  a man  through  a maze: 

1 RE  Mark  Main  body  of  program  is  here 
10  Generate_a_maze 
20  REPeat  maze_ wander 
30  move_the_man 
40  AT  line, column:  print  man) 

50  END  REPeat  maze_wander 
60  RE  Mark  everything  that  follows  is 
a procedure 

70  REMark 
80  REMark 
90  REMark 

100  DEFine  PROcedure  Generate  a maze 

. lines  to  make  the  maze 

200  END  DEFine 
210  REMark 
220  REMark 

300  DEFine  PROcedure  move_the  man 

• lines  to  change  position  of  man 

350  Test_for_walls 
400  END  DEFine 
410  REMark 
420  REMark 

500  DEFine  PROcedure  Test_for_ walls 

• lines  to  check  man's  position 

• against  walls  of  the  maze 

600  END  DEFine 


Conclusion 

If  this  piece  has  whet  your  appetite  for  a QL,  its 
not  surprising*  You  could  do  a lot  worse  them  opting 
for  a QL*  From  what  I've  seen  of  other  versions  of 
Basic  (Apple  II,  Commodore  64,  ZX,  and 

Microsoft/SANYO),  Super  Basic  beats  them  all  hands 
down  for  ease  and  flexibility  of  programming. 


FLASH!! 

Right  now,  Sinclair  is  sending  out  brochures  and 
order  forms  to  everyone  who  asked  to  be  put  on  their 
mailing  list*  If  you  do  not  receive  information 
about  the  QL  from  Sinclair,  you  can  request  a 
brochure  or  even  place  an  order  by  writing  to 
Sinclair  Research,  Dept.  SWN,  1 Sinclair  Plaza, 
Nashua,  NH  03061* 

The  price  for  the  QL  is  $499.00  plus  $12.00  for 
shipping.  Sinclair  informs  us  that  Visa  and  MC  are 
accepted,  and  that  delivery  time  is  4 to  6 weeks. 


BASIL'S  COMPENDIUM 


Basil  Wentworth 
1413  Elliston  Drive 
Bloomington,  IN  47401 

Deluxe  Loader  Program 


the  computer  into  an  orgy  of  paper  consumption. 

And  now  back  to  lessons.  If  your  memory  is  severely 
limited,  you  can  leave  out  everything  before  line 
100  (except  line  1,  of  course),  once  you  have 
learned  the  procedures  they  describe. 


This  installment  gives  you  a simple  loader  program 
that  will  make  it  very  easy  for  you  to  enter 
machine  code  in  decimal  notation.  But  first,  let's 
have  a look  at  another  "fun"  program. 

It  is  assumed  by  now  that  you're  familiar  with  the 
loader  program  that  we  have  been  using,  so  only  the 
machine  code  listing  is  included,  in  Figure  6-1. 

And  what  does  this  program  do? 

You'll  remember,  going  back  to  the  renumbering 
program,  that  you  probably  would  have  to  change 
the  destinations  of  all  the  GOTO  and  GOSUB 
instructions,  if  you  wanted  the  new  program  to 
work.  Well,  this  machine  code  routine  will  help 
you,  by  printing  out  the  numbers  of  all  the  lines 
that  include  a GOTO  or  a GOSUB  command.  Just  run 
the  machine  code  program  before  you  renumber,  and 
you'll  know  where  to  look  for  potential  trouble 
spots.  This  machine  code  routine  should  be  used  in 
conjunction  with  the  BASIC  mini-program  in  Figure 
6-2. 

Or,  you  can  use  this  program  to  search  for  other 
one-byte  entries,  such  as  REM  or  LPRINT  (and 
LLIST ).  This  last  application  can  be  especially 
useful  if  you  want  to  avoid  inadvertently  sending 


I almost  decided  to  leave  out  line  109 — not  to  save 
the  few  bytes  involved,  but  because  having  the  line 
in  there  might  encourage  bad  habits.  Its  purpose, 
as  you  can  probably  figure  out,  is  to  make  sure 
that  the  machine  code  routine  ends  with  RETURN, 
even  if  you  forget  to  put  it  in.  I strongly 
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recommend  that  you  include  the  RETURN  in  the 
program  proper,  and  regard  line  109  as  a safety 
net,  to  help  you  only  in  case  of  emergency.  Don't 
worry  about  the  RETURN  being  in  there  twice.  The 
computer,  obeying  the  first  one,  will  never  even 
know  that  the  second  one  is  there. 

The  danger,  of  course,  is  that  you'll  come  to  depend 
on  the  safety  net,  and  you  may  find  yourself 
performing  some  day  in  another  arena  (to  pursue  the 
metaphor)  where  they  don't  have  a net.  My  decision 
was  to  include  line  109,  and  then  to  write  my 
programs  as  if  it  wasn't  there.  This  is  much  like 
the  proverbial  worrier  who  wears  both  a belt  and 
suspenders.  You  can  do  as  you  like  on  this  point. 
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6-1 

THE 

1 REM  STATEMENT 

5000  POKE  16545,161 

5010  POKE  16546,64 

5010  REM  THE  CONTENTS  OF  THE  ABO 

VE  TWO  BYTES  WILL  CHANGE  WHEN  TH 

E PROGRAM  IS  RUN 

5020  LET  A=USR  16514 

5030  IF  A>9999  THEN  STOP 

5040  PRINT  A 

5050  GOTO  5020 


FIG  6-2.  THE  OPERATING  PROGRAM 

(TO  BE  USED  IN  CONJUNCTION  WITH 
THE  1 REM  STATEMENT  OF  FIGURE 
6-1) 


After  you've  got  the  loader  program  working,  SAVE 
it. 

Let  me  say  a few  words  about  the  SAVE  routine.  The 
lines  following  9990  are  designed  to  squeeze  out 
the  "excess  water"  from  the  program  before  you  SAVE 
it,  to  economize  on  tape  and  time.  (This  does  not 
help  with  the  eprom  upgrade.  The  screen  will  not 
collapse. -ed.)  This  technique  will  work  on  any 
program,  but  it's  more  impressive  on  short  ones. 

Here's  the  way  it  works.  Get  your  tape  all  ready  to 
go  (but  don't  start  the  recorder),  then  GOTO  9990. 

The  computer  will  stop  at  line  9995.  Now  make  sure 
that  the  LOAD  link  between  your  recorder  and  the 
computer  is  disconnected  (to  reduce  the  danger  of 
feedback),  start  the  recorder  going  in  RECORD  mode, 
and  enter  CONTINUE  into  the  computer  (pressing 
ENTER,  of  course). 

The  tape  can  then  be  loaded  in  the  usual  manner,  and 
the  program  will  identify  itself  when  loading  is 
complete. 

If  you  want  to  know  why  this  SAV E-saver  works, 
you'll  have  to  understand  that  the  ZX81  has  a 
parameter  called  R AMT  OP,  which  is  established  by 
bytes  16388/16389.  The  value  at  16389  is  tested 
every  time  that  you  clear  your  screen.  If  that 
value  is  4Dh  or  less,  then  the  display  file  is 
deleted  from  memory  and  is  therefore  not  saved  with 
your  program. 

Now  let's  put  in  that  mini-program  that  we  know  so 
well.  Change  line  100  to  read: 

100  LET  P$=" 6. 1.14.0.201." 

Remember  to  include  the  period  after  each  byte, 
including  the  last  one.  Otherwise,  the  computer 
won't  know  where  one  byte  leaves  off  and  the  next 
one  begins. 

You  can  proofread  the  program  before  you  RUN  it.  And 
then,  for  a final  check,  when  you  RUN  the  program, 
you'll  see  the  relevant  byte  addresses  and  their 
contents  lined  up  for  a final  inspection  before  you 
cross  over  into  USR  land. 

RUN  the  program,  and  then  PRINT  USR  16514,  if  the 
program  passes  muster  at  proofreading  time.  You 
should  get  256,  as  before. 

Now,  try  the  other  test  program.  Change  line  100 
to: 

100  LET  P$=" 6.0. 14. 1.201." 

and  check  the  result  of  PRINT  USR  16514  (after 
proofreading,  of  course). 

Just  out  of  curiosity,  try  a program  with  no 
instructions.  Except  RETURN,  of  course.  ALWAYS 
include  RETURN.  Put  in  LET  P$="201."  Then  RUN  and 
PRINT  USR  16514.  So  now  you  know  what  BC  does  if 
you  don't  give  it  any  instructions.  It  just  takes 
the  value  of  the  starting  byte--in  this  case, 

16514. 

Now  you  have  seen  that  the  loader  not  only 
facilitates  proofreading,  but  it  also  makes  editing 
easier.  Exchanging  the  values  of  data  bytes  1 and  0 
was  just  a simple  matter  of  editing  line  100.  No 
need  to  POKE,  no  need  to  retype  the  entire  program. 
Correcting  a typing  error  would  have  been  just  as 
easy.  This  capability  really  helps  when  you  find 
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FIG  6-3.  THE  LOADER  PROGRAM 
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that  you  have  inadvertently  left  out  a byte.  Under 
the  "hunt  and  POKE"  system,  you'd  have  to  locate 
the  error,  add  another  null,  and  then  rePOKE  the 
offending  area — and  possibly  the  entire  program 
following  the  error. 

It's  not  such  a big  deal  when  the  entire  program 
consists  of  5 or  6 bytes,  but  you  can  imagine  what 
it  would  be  like  to  retype  a few  dozen  or  more 
bytes  (and  then  proofread  them  again)  just  to  get 
rid  of  one  typographical  error. 


Any  error,  however  small,  is  very  likely  to  make  the 
program  crash.  As  I've  mentioned  before,  machine 
code  programs  are  very  unforgiving  of  mistakes!  If 
your  program  is  very  long,  you  can  distribute  P$ 
among  lines  2 to  108,  to  bring  the  number  of  bytes 
per  line  down  to  manageable  size. 


And  now  we're  finally  ready  to  start  playing  that 
violin.  Well,  almost... 


CELESTIAL  COMPUTING 


Astronomical  Software  1 

Scientific  Computing 
P.  0.  Box  5091 
Littleton,  Colorado  80123 
Timex/Sinclair  1000,  1500;  119.95 

A SI  provides  functions  frequently  found  only  on  more 
expensive  software  for  more  expensive  computers. 
Combined  into  two  compact  "Time  Options"  and 
"Coordinate  Options"  menus,  we  see  many  selections 
that  were  treated  as  separate  programs  in  Eric 
Burgess'  'Celestial  Basic.' 

TIME  OPTIONS 

1.  Date  to  Day  Number 

2.  Date  to  Julian  Day  Number 

3.  Julian  Day  Number  to  Date 

4.  Date  to  Day  of  Week 

5.  UT  to  LMST 

6.  Coordinate  Options 

COORDINATE  OPTIONS 

1.  Obliquity  of  the  Ecliptic 

2.  Angle  Between  Two  Objects 

3.  Precesses  Coordinates 

4.  Equatoriaio Horizon 

5.  Equatoriaio  Ecliptic 

6.  Equatoriaio  Galactic 

7.  Time  Options 


The  monitor  screen  is  divided  into  three  segments  for 
program  input,  output  and  prompts.  Your  input  is 
echo-printed  at  the  top  left  corner  of  the  screen. 
Program  output  is  vertically  centered.  Additional 
options  appear  at  the  bottom  of  the  screen  after  the 
current  computation  is  complete. 

All  date  inputs  are  made  with  the  month  in  numerical 
form.  A decimal  point  is  required  to  separate  hours 
and  degrees  from  fractional  parts. 

. . t 

The  "Time  Options"  routines  take  into  account  the 
effect  of  leap  years  and  the  changeover  from  the 
Julian  to  the  Gregorian  Calendar.  The  "Coordinate 
Options"  functions  provide  two-way  conversions. 
Either  format  may  be  used  to  obtain  coordinates  in 
the  other  system. 

The  documentation  is  excellent.  A fifteen-page  manual 
provides  an  overview  of  program  functions,  input 
formats  and  constraints,  and  error  recovery.  Each 
program  function  is  summarized,  and  sample  input  and 
output  for  that  function  are  shown. 

I infer  from  the  "1"  appended  to  the  program's  name 
that  this  is  the  first  of  a series  of  astronomy 
programs  developed  for  T/S  Computers  by  Scientific 
Computing.  I hope  this  is  the  case,  because  A SI  is  a 
very  professional  looking  but  highly  specialized 
product. 

Reviewed  by  Duncan  Teague 
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Planet  Finder 

Michael  E.  Zerbo 
16  Colony  Drive 
West  Sayville,  New  York  11796 
Timex/Sinclair  1000,  1500,  $5.95;  2068,  $9.95 

Planet  Finder  as  a title  is  a misnomer.  The  program 
doesn't  find  planets  as  does  an  Ephemeris.  It  isn't 
Eric  Burgess'  Skyplot,  a telescopic  view  of  a section 
of  the  ecliptic.  It  also  isn't  Burgess'  Planet 
Finder,  a panoramic  view  through  a picture  window  at 
a span  of  the  Earth's  horizon. 

Planet  Finder  is  a collection  of  astronomical  images 
and  information.  It's  a cleverly  designed, 
graphically  interesting  file  of  solar  system  data, 
celestial  bodies,  and  planetary  configurations. 

Planet  Finder  loads  in  two  parts.  The  first  program 
opens  with  the  theme  from  a classic  science  fiction 
movie,  produces  an  animated  drawing  that  reminds  me 
of  a local  advertisement  for  water  beds,  and  finally 
displays  a menu  of  four  choices: 

1.  Load  Main  Program 

2.  Review  Program  Instructions 

3.  Review  Astronomy  Terms 

4.  Terminate  Program 

Option  2 contains  instructions  for  use  of  the  main 
program.  Option  3 defines  astronomical  terms  ranging 
from  "albedo"  to  "terrestrial  planets."  Option  1 
loads  the  main  program  with  these  options: 

1.  Review  Planet  Information 

2.  Planets  And  Their  Satellites 

3.  Facts  About  The  Moon 


4.  Planetary  Orbital  Tilts 

5.  Weight  Simulation 

6.  Questions  About  The  Solar  System 

7.  Terminate  Program 

Options  1 and  3 remind  me  of  a slide  set  I've  used  in 
my  astronomy  classes.  Each  slide  pictures  one  of  the 
major  objects  in  our  solar  system.  Next  to  each 
picture  is  that  body's  vital  statistics.  These  two 
menu  options  produce  a screen  display  which  differs 
from  those  slides  only  in  regard  to  the  position  and 
quantity  of  the  information. 

Option  2 is  simply  an  exhaustive  listing  of  currently 
known  satellites.  Option  4 is  a diagram  with  the 
scale  exaggerated  to  avoid  clutter.  Option  5 includes 
a drawing  of  a double-pan  balance.  Above  the  balance 
calculations  compare  the  weight  of  an  object  on  Earth 
with  its  weight  on  another  planet. 

Option  6 is  a game  of  trivial  pursuit  where  the 
category  is  always  astronomy.  The  test  covers  general 
knowledge,  the  terrestrial  planets,  the  gas  giants, 
and  solar  system  leftovers  (the  Sun,  the  Moon,  and 
Pluto).  The  four  test  areas  can  be  taken  separately 
or  all  together.  In  the  latter  instance,  a grade  is 
given  on  each  part  and  on  the  whole  test. 

The  astronomical  data  is  painstakingly  accurate  and 
up  to  date.  It  correctly  shows  Pluto  as  the  smallest 
planet,  Neptune  as  most  distant,  and  Saturn  as  the 
planet  with  the  most  moons.  This  program  is  lighter 
than  an  astronomy  text  and  more  fun  to  use. 

The  TS/1000  version  is  less  colorful,  but  it  loads 
itself!  Both  are  a great  buy  at  the  prices  asked. 

Reviewed  by  Duncan  Teague 
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